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-REM @ 


IDENTIFICATION 


PRODUCT CODE: AC-S072A-MC 
PRODUCT NAME: CZRMVAO RMO5/3/2 EXT'D DR TST 


DATE: APRIL 1980 
MAINTAINER: CX DIAGNOSTIC ENGINEERING 
AUTHOR: MIKE LEAVITT 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD MOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL. 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER 
UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED 
(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SI\ICH 
SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE 
PA eamemaac OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 


COPYRIGHT (C) 1980 DIGITAL EQUIPMENT CORPORATION 
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2.1 


2.2 


2.3 


ABSTRACT 


THIS PROGRAM CONTAINS A SERIES OF TESTS THAT WILL VERIFY THAT 
THE DISK IS _ CAPABLE OF PERFORMING SEEKS, THAT THE ACCESS TIMES 
ARE WITHIN TOLERANCE, THAT THE TRACK AND SECTOR ADDRESSING 
CIRCUITRY OPERATES PROPERLY, AND THAT THE DATA STORAGE AND 
RETRIEVAL CAPABILITIES ARE FUNCTIONING. 


REQUIREMENTS 


EQUIPMENT 


PDP=11 PROCESSOR 

16K MEMORY 

TELETYPE 

PROGRAM LOADING DEVICE 

KWIl-L OR KWI1-P (THE Kw11-P IS REQUIRED FOR THE TIMING TESTS) 

1 TO 8 DISK DRIVES (ANY COMBINATION OF RMOS'S, RMO3'S OR RMO2'S) 


PRELIMINARY PROGRAMS 

RMO5/3/2 DISKLESS CONTROLLER TEST, PART 1 & 2 

RMO5/3/2 FUNCTIONAL CONTROLLER TEST, PART 1, 2 & 3 

MEDIA 

TGSTaRSO” MURS Tut BME UH, TQBE TST ag Ama 


MODE, DEPENDING ON THE TESTING REQUIREMENTS. NOTE THAT THE PROGRAM 
++ gl TEST A MIXTURE OF DRIVES WITH BOTH 16 AND 18 BIT MODE 


LOADING PROCEDURE 


LOADER WILL NOT BE PRESERVED. THE PROGRAM MUST BE RUN ON A SYSTEM 


WITH 20K OR MORE TO PRESERVE THE "XXDP' LOADER. THE ‘ABSOLUTE* LOADER 


WILL BE PRESERVED IN A 16K SYSTEM, HOWEVER. 


STARTING PROCEDURE 


SEQ 0003 
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SEQ 0004 

SB ee me nmenneee 

59 

60 4.1 STARTING ADDRESSES 

62 200 NORMAL STARTING ADDRESS 

63 204 SELECT OPERATING PARAMETERS 

64 210 SELECT RH11-RH70 ADDRESSES 

65 314 COMBINATION OF 204 AND 210 

67 NOTE: STARTING ADDRESSES 210 AND 214 ARE AVAILABLE WHEN THE 

68 PROGRAM IS INITIALLY STARTED; THESE STARTING ADDRESSES ARE 

69 TREATED AS ADDRESSES 200 OR 204 RESPECTIVELY ON RESTARTS. 

2 4.2 OPERATOR ACTION 

73 1. LOAD PROGRAM INTO MEMORY (SEE SECTION 3.) 

7% 2: LOAD A FORMATTED PACK INTO DRIVE(S) TO BE TESTED 

75 3. BRING DRIVE(S) TO ONLINE STATE, WRITE ENABLED, 

76 CKED ON PORT. 

77 4. LOAD ADDRESS 200. 

78 5. SET SWITCHES (SEE SECTION 5.) 

79 6. PRESS START. 

80 7. THE PROGRAM WILL TYPEOUT THE STATUS OF THE DRIVES ATTACHED TO 

81 THE SELECTED MASSBUS SUBSYSTEM. TO INHIBIT THIS TYPEOUT, DO NOT 
82 RESTART THE PROGRAM FROM ANY OF THE STARTING ADDRESSES: INSTEAD 
83 TYPE A "CONTROL C' ON THE KEYBOARD TO RETURN THE PROGRAM TO 

8 COMMAND ENTRY MODE. 

86 4.3 PROGRAM ACTION 

88 IN AN EFFORT TO ALLOW CONVERSATION WITH A PROGRAM FOR THE 

89 PURPOSE OF CONTROLLING ITS OPERATION AND PARAMETERS THE FOLLOWING 
90 CONSTRUCTIONS HAVE BEEN ADOPTED. 

92 NOTE1: IN ALL EXAMPLES BRACKETS ARE USED FOR CLARITY AND ARE 

93 NOT TYPED BY THE USER. 

95 NOTE2: THE CARRRIAGE RETURN TYPED BY THE USER IS INDICATED BY 

3 <CR> AND WILL BE ECHOED AS A ‘CARRIAGE RETURN-LINE FEED’. 

3 <.><CR> PERIOD 
100 A STATEMENT TERMINATOR: WHEN TYPED AT THE 

10° END OF A LINE (LEGAL ON ALL LINES) IT TELLS 

102 THE PARAMETER STRING INTERPRETER (PSI) THIS IS 

103 THE END OF CHANGES TO THE CURRENT PARAMETER 

104 STRING. 

106 <..><CR> PERIOD PERIOD 

108 THE "PERIOD PERIOD’ TERMINATOR IS TYPED TO INDICATE 
109 THE END OF TEST PARAMETER MODIFICATION AND TO SIGNAL 
110 THE START OF TEST EXECUTION. 

112 <,><UR> COMMA ' 
114 THE COMMA IS USED AS A SEPARATOR BETWEEN DRIVE NUMBERS 


, oN 
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SEQ 0005 


AND TEST NUMBERS. 
</> SLASH 


A mere “tea be INDICATOR: IF A SLASH FOLLOWS A TEST 
NUMBER, THE PROGRAM WILL OPEN THAT TEST FOR PARAMETER 
MODIFICATION. 


<“U> CONTROL=-U 


DELETE THE PRESENT INPUT STRING AND START A NEW 
LINE. TYPED BY DEPRESSING THE "'CONTROL KEY" 
(CTRL) AND THEN STRIKING THE ‘'U"’. 


<\> RUBOUT 


DELETE THE LAST CHARACTER FROM THE INPUT STRING. 
TYPED BY STRIKING THE ‘'RUBOUT'’ KEY. WHICH WILL 
BE ECHOED BY A BACKSLASH (\) FOLLOWED BY THE 
CHARACTER DELETED. 


4.3.1 CONTROL SWITCH SELECTION 


STARTING THE PROGRAM AT ANY OF THE POSSIBLE STARTING ee 
WITH SW<O7>=1 WILL RESULT IN ENTERING THE ‘'CONTROL SWITCH 
SETTING'’ MODE. THUS, + ena, THE OPERATOR TO SPECIFY THE 
DESIRED STATE OF ‘'C.SWR’’ 


CONTROL SWITCH SELECTION EXAMPLES: 
EXAMPLE #1 


SET SwW<07>=0 
C.SWR=000000 / 400.. 


EXAMPLE #2 


SET SW<07>=0 
C.SWR=000000 / 220. 
C.SWR=000000 / 220.. 


4.3.2 RH11 = RH70 ADDRESS SELECTION 


STARTING THE PROGRAM AT 200 WILL RESULT IN AUTOMATIC 
SELECT OF THE DEFAULT VALUES OF BUS ADDRESS (RMCS1), 
VECTOR ADDRESS, AND PRIORITY LEVEL OF THE RH11-RH70. 

IF THE DEFAULT VAULE OF THE BUS ADDRESS pore ee RESPCND 
(TIMES OUT) WHEN ADDRESSED, AN ERROR IS REPO 

AFTER THE ERROR IS REPORTED ONE OF TWO COURSES OF ACTION 
WILL BE TAKEN: 


1. IF THERE 1S A MONITOR -- RETURN TO THE MONITOR 
2. IF THERE ISN'T A MONITOR -- ASK FOR NEW ADDRESSES 


ee ee ee ee eT eee ee ee eee ee 
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4.3.3 


4.3.3.1 


SEQ 0006 

STARTING THE PROGRAM AT 210 OR 214 ALLOWS THE OPERATOR 
TO CHANGE THE ADDRESS OF THE RH11 OR RH70 AND THE VECTOR 
ADDRESS. 
ADDRESS SELECTION EXAMPLES 
EXAMPLE #1 

RMCS1=176700 / 177200. 
EXAMPLE #2 

RMCS1=176700 / — 

RMVEC=254 / 260<C 

RMPRIO=5 / ‘6 
EXAMPLE #3 


RMCS1=176700<CR> 
RMVEC=254 / 260. 


EXAMPLE #4 


RH/RM reais TO RESPOND TO ADDRESSING 
RMCS1_— ERR a 

176300 _XXXx 

RMCS1= 176300. } 176700. 


EXAMPLE #5 


RMCS1=176700 / 1776\67\6300<CR> 
RMVEC=254<CR> 


RMCS1=176300. 
DRIVE AND PARAMETER SELECTION 


STARTING THE PROGRAM AT 200 OR 210 WILL RESULT ”. + ron: 
SELECTION OF THE DRIVES TO TEST AND THE TESTS TO R 


STARTING THE PROGRAM AT 204 OR 214 ALLOWS THE OPERATOR 
TO SELECT THE DRIVE(S) TO BE TESTED, THE TESTS TO BE EXECUTED, 
AND THE PARAMETERS TO USE. 


FACH TEST CONTAINS, THO SETS OF TRACK LIMIT PARAMETERS. PARAMETERS 
"LT", “RT AND "LT" ARE USED BY RMO3/2 DRIVES AND PARAMETERS "LT''', 
FT’ AND “'IT''' ARE USED BY RMOS DRIVES. THE PROGRAM DETERMINES WHICH 

DRIVE IS BEING TESTED AND SELECTS THE CORRECT SET OF TRACK LIMIT 
VALUES. IF THE PROGRAM IS BEING USED TO TEST A SUBSYSTEM WHICH 
CONTAINS BOTH RMO3/2 AND RMOS DRIVES, THE OPERATOR MUST CHANGE 

BOTH SETS OF TRACK LIMITS IF THE TESTS ARE TO BE MODIFIED FOR 

ALL DRIVES TESTED. 


DRIVE AND PARAMETER SELECTION DESCRIPTION 
THE FOLLOWING IS A TABLE OF TERMS USED BY THE PS!. 
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SEQ 0007 


"R' —-sREPEATS_ (ITERATIONS) 
“FC’' FIRST CYLINDER ADDRESS 
“LC'' LAST CYLINDER ADDRESS 
“IC'' INCREMENT CYLINDER 


ein FIRST TRACK ADDRESS 

« § ge LAST TRACK ADDRESS 

ca} es INCREME ACK 

“FT''' FIRST TRACK ADDRESS RMOS PARAMETER 
"”LT''' LAST TRACK ADDRESS sRMOS PARAMETER 
"IT''' INCREMENT TRACK RMOS PARAMETER 


“FS'' FIRST SECTOR ADDRESS 

LS'" LAST SECTOR ADDRESS 

“PAT'’ PATTERN (USED FOR DATA TEST) 

“WDX"' WORD OF PATTERN 0 WHERE X IS 1 TO 16 


*'s'' ALL SEEK TESTS (TESTS 0 = 10) 

eT ALL TIMING TESTS (TESTS 12 = 15) 
*'A'' ALL ADDRESS TESTS (TESTS 16 = 17) 
*'D'' THE DATA TEST (TEST 20) 

*'E'’ THE EXERCISER (TEST 21) 


* USED BY THE OPERATOR TO SELECT TEST GROUPS 


NOTE: ALL NUMBERS WILL BE IN DECIMAL EXCEPT FOR THE PATTERN 
(PAT) AND WORDS (WDX) SELECTION. ‘‘PAT’’ WILL BE SELECTED By 
A BIT (1.€. 001000‘(8)=PATTERN 9) AND ‘'WDX'' WILL BE IN OCTAL. 


SPECIAL CASES OF CONTROL CHARACTERS 


IF <..> IS TYPED WHILE A TEST IS OPEN FOR MODIFICATION 
(</>) AND OTHER TESTS IN THE "TEST COMMAND’ STRING 
ARE TO BE MODIFIED, THE REMAINING TESTS WILL BE UNCHANGED. 


WHEN THE PROGRAM IS STARTED FROM LOCATION 200 OR ar TESTS 0-10, 

12-20 WILL BE RUN USING ALL sig get ONLINE DRIVES. IF THE OPERATOR 
WISHES TO SELECT THE DRIVES TO BE TESTED, THE TESTS TO BE PERFORMED, 

OR THE PARAMETERS TO BE USED, THE CONVERSATION MODE MAY BE ENTERED 

BY TYPING A ‘CONTROL C’ OR BY STARTING THE PROGRAM FROM EITHER 
LOCATION 204 OR 214. 


THE PROGRAM WILL THEN RESPOND WITH: 

DRIVE(S)= 
THE FOLLOWING EXAMPLES ASSUME THAT THE OPERATOR IS TO TEST 
DRIVE #3 USING TESTS 2 THRU 7 AND TEST 11 AND DOES NOT DESIRE TO — 
THE PARAMETERS (INITIAL Then ADDRESS, FINAL CYLINDER ADDRESS, ETC.). 
THE USER WOULD TYPE '3<CR>" WHICH SAYS ‘THIS IS THE END OF DRIVE ENTRY’. 
THE PROGRAM WILL THEN REQUEST TEST NUMBERS. 
THE TRANSACTION APPEARS AS FOLLOWS: 


DRIVE(S) =3<CR> 
TEST= 
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THE OPERATOR MAY NOW ENTER DESIRED TEST NUMBERS. IN THE EXAMPLE, 
HE WANTS T 13 2 THRU 7 re TEST 11 SO HE TYPES 2=7<,> (THE ‘COMMA 
SEPARATES ENTRIES), 11<.><CR> ("PERIOD' "CARRIAGE RETURN’ - 

END OF CHANGES, START TEST EXECUTION. ) 


1T NOW LOOKS LIKE THIS 


DRIVE(S)=3<CR> 
TEST=2-7,11.<CR> 


IN THE NEXT EXAMPLE, IT IS ASSUMED THAT THE OPERATOR WISHES TO TEST 
DRIVE 4 AND TO RUN TESTS 1 AND 3 THRU 11, MODIFYING THE PARAMETERS 
FOR TESTS 3 AND 10. 
THE TRANSACTiON WOULD BE AS FOLLOWS: 

DRIVE(S) =4<CR> 

TEST= 
THE S fins aes NOW ENTERS THE TEST NUMBERS. THE TRANSACTION IS 
GIVEN BELOW 


DRIVE(S) =4<CR> 
TEST=1,3/4-7,10/11<CR> 


NOTICE THIS SAYS SELECT TEST 1, CONTINUE<,>; SELECT TEST 3, OPEN</>; 
SELECT TESTS 4-7, CONTINUE<,>; SELECT TEST 10, OPEN</>; SELECT TEST 
11, END OF INPUT <.>. 

THE PROGRAM SCANS THE TEST NUMBER INPUT AND DETERMINES THAT THE 
PARAMETERS FOR TEST 3 AND TEST 10 ARE TO BE CHANGED. THE OTHER 
TESTS WILL NOT BE ALTERED. 

(THE ENTIRE TRANSACTION IS REPEATED FOR CLARITY) 


DRIVE(S) =4<CR> 
TEST=1,3/4-7,10/11<CR> 
TEST 3 


R=X / sWHERE X IS ITERATION 
we ~¥ VALUE FOR 'R* MAY BE ENTERED. TERMINATING THE ENTRY WITH 
<.> (PERIOD) WILL TERMINATE THE CHANGES FOR THIS TEST; TYPING A 
<CR> OR TERMINATING THE ENTRY WITH A <CR> WILL CAUSE THE PROGRAM 
TO MOVE TO THE NEXT PARAMETER. 


DRIVE(S) =4<CR> 
TEST=1,3/4-7,10/11<CR> 
TEST 3 


R=1 / <CR> ;D0 NOT ALTER-BUT CONTINUE 
FC=N / ;WHERE "N* IS FIRST CYLINDER ADDRESS 


IF THE OPERATOR DOES NOT WISH TO CHANGE ‘FC*, THE FOLLOWING OCCURS: 


DRIVE(S) =4<CR> 
TEST=1,3/4-7,10/11.<CR> 


ES 
R=1 / <CR> ;D0 NOT ALTER THIS LINE BUT CONTINUE 


SEQ 0008 
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FC=0 / <CR> 300 NOT ALTER THIS LINE 3UT CONTINUE 
LC=822 / 


THE PROGRAM RESPONDS WITH THE PREVIOUSLY oar ts Ram aie FOR LAST 
CYLINDER ADDRESS IN THIS CASE USING 822 AS THE EXAMPLE. THIS IS 
WHAT THE OPERATOR INTENDED TO MODIFY AND IS WHY TEST 3 Ww 

OPENED. TO CHANGE THE VALUE TO '20', THE NEW VALUE IS TYPED 
FOLLOWED BY A 'PERIOD’ TERMINATOR (<.><CR>). 


THE TOTAL TRANSACTION AND RESPONSE: 


DRIVE(S) =4<CR> 
TEST=1,3/4=7,10/11<CR> 
TEST 3 


R=1 / 4 

FC=0 / 

LC= 822° ¢ RO. <CR> 
TEST 


THE PROGRAM HAS LOADED TEST 3 WITH IT 
PROGRAM IS WAITING FOR CHANGES TO TES 


DRIVE(S) =4<CR> 
bag ES stadia alah cies 


R=1 / lee 
Fes 0 / 
LC= 892° f 0. <CR> 
TEST 1 
R=1 / 10.<CR> 


THE OPERATOR TYPES THE NEW VALUE (10) AND TERMINATES THE ENTRY 
WITH A ‘PERIOD’ ‘CARRIAGE RETURN’. 


THE PROGRAM NOW LOADS TEST 10 WITH THE NEW PARAMETERS (TEST 11 RETAINS 
THE PREVIOUSLY ASSIGNED PARAMETERS) AND RESPONDS WITH: 


DRIVE(S)= 


S NEW PARAMETERS AND THE 
T 16°S PARAMETERS. 


SINCE THE USER DID NOT END THE CONVERSATION MODE WITH A ‘PERIOD PERIOD’, 


THE PROGRAM HAS LOOPED BACK TO THE BEGINNING LOOKING FOR MORE 
CHANGES. THAT IS TO SAY, AFTER THE ENTRY FOR DRIVE SELECTION, A 
<,><CR> WILL CAUSE THE TEST MESSAGE TO BE REPEATED AND FURTHER 
CHANGES CAN BE MADE. HOWEVER, AT SOME POINT IN ORDER TO EXECUTE 
THE PROGRAM, A ‘PERIOD PERIOD’ MUST BE TYPED. 


IF A SINGLE 'PERIOD' IS TYPED WHILE DRIVE OR TEST Cage ARE 1? 
ENTERED, THE PROGRAM WILL START EXECUTION IMMEDIATELY. PERIOD 
PERIOD’ MUST BE TYPED BEFORE THE PROGRAM WILL cart TEST PARAMETER 


CHANGE MODE TO GO TO EXECUTION. 
DRIVE AND PARAMETER SELECTION EXAMPLES 


EXAMPLE #1 


SEQ 0009 
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DRIVE=4.<CR> 


EXAMPLE #2 


=1 / <CR> 
co / 10.<CR> 


17 
R=1 / 50<CR> 
FC=0 / <CR> 
(C2822 / 50..<CR> 


EXAMPLE #4 


DRIVE=0<CR> 
TEST=S,E.<CR> 


EXAMPLE #5 


CR> 
<CR> 


/ <CR> 
/ 10..<CR> 


OOOVA 


EXAMPLE #6 


T 
R=10 / 100.<CR> 
TEST 1 
hy y / 1000.<CR> 


;SELECT DRIVE #4, TERMINATE AND 


; PARAM 


BEGIN. EXECUTION USING PREVIOUSLY ASSIGNED 


ata te eh #0 AND CK bg 5 ws 


TEST 


USE DEFA 


THRU 5 ONL 
‘ PARAMETERS AND TERMINATE AND EXECUTE. is 


;SELECT DRIVE #2 AND MAKE CHANGES "’,"' 


;RUN TEST 1-5 WITH oh chances nen OPEN 


:TO T 
350 ITERATIONS, MOVE T 
:D0 NOT 
:TEST 10 1S STILL 


GES 
MOVE TO NEXT PARAMETER 


;LEA 
7SET sect oe NADDRESS TO 10, END CHANGES 


O NEXT PARAMETER 


CHANGE ‘FC’ CYLINDER ADDRESS BUT CONTINUE 
PENDING AND WILL BE 


;RETAIN 1T8 PRESENT PARAMETERS. 


SELECT DRIVE #0 AND MAKE CHANGES 
RUN ALL SEEK TESTS AND THE EXERCISER 


RUN ALL SEEK TESTS (OPEN FOR CHANGES) AND 


;THE DATA TEST (WITH . 


EFAULT PARAMETERS). 


;RUN WITH 10 ITERATIONS 


:CHANGE FIRST CYLINDER 
z;AND START EXECUTION 

sTESTS 1 
ASSIGNED PARAMETERS. 


;OPEN THE SEEK TESTS (¢ 
;CHANGE TO 100 ITERAT] 


ADDRESS 


~- 10 WILL RETAIN THEIR PREVIOUSLY 


TESTS 0-10) 


ONS, TO TO THE NEXT TEST 
CHANGE 'R' TO 1000 ITERATIONS, MOVE TO NEXT TEST 


SEQ 0010 
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SEQ 0011 
457 R=1 / 10<CR> :CHANGE 'R' TO 10 ITERATIONS, 72 10 NEXT PARAMETER 
458 FC=0 / 50<CR> [CHANGE 'FC' TO 50, GO TO NEXT PARAMETE 
459 LC=822 / 51.<CR> CHANGE 'LC' TO 51, GO TO THE NEXT NEST. 
460 TEST 3 
461 R=1.<CR> :MOVE TO NEXT TEST 
462 TEST 4 
463 R=1..<CR> SUSE TEST 4'S PARAMETERS AND START PROGRAM EXECUTION 
465 EXAMPLE #7 
r* * Sted i ee ee ee ee ee et 
467 
468 DRIVE=1<CR> 
469 TEST=D/<CR> :SELECT AND OPEN THE DATA TEST 
470 TEST 20 
471 71 / 1000<CR> :D0 1000 ITERATION OF TEST PATTERN 
472 FC=0 / 10<CR> +8 ON CYLINDER 10, TRACK 2, SECTOR 4 
473 LC=822 / 10<CR> 
474 1C=64 / O<CR> 
475 FT=0 / 2<CR> 
476 LT=4 / 2<CR> 
477 IT=1 / <CR> 
478 FT'=0 / 2<CR> :RMOS PARAMETER 
479 LT'=18 / 2<CR> *RMOS PARAMETER 
480 IT'=1 / <CR> :RMOS PARAMETER 
481 FS=0 / 4cCR> 
482 LS=22 / 
483 PAT= f77777 y 400. .<CR> ;RUN WITH PATTERN #8 
485 EXAMPLE #8 
Rc eee a eae 
488 DRIVE=1<CR> :USE THE SAME PARAMETERS AS IN EXAMPLE 
489 TEST=D/<CR> ‘#7, BUT ALSO SPECIFY A DATA PATTERN (PAT #0). 
490 TEST 20 
491 R=1000 / <CR> 
492 FC=10 / <CR> 
493 LC=10 / <CR> 
494 1C=0 / <CR> 
495 FT=2 / <CR> 
496 LT=2 / <CR> 
497 IT=1 / <CR> 
498 FT'=0 / 2<CR> :RMOS PARAMETER 
499 LT'=18 / 2<CR> :RMOS PARAMETER 
500 IT'=1 / <CR> *RMOS PARAMETER 
501 FS=4 / <CR> 
502 LS=4 / <CR> 
503 PAT=000400 / 401<CR> ;RUN WITH PATTERNS #8 & #0 (O=OPERATOR INPUT) 
504 WO1=165555 / 125252<CR> ;FIRST WORD OF PATTERN 0 
505 WO2=133333 / 52525..<CR> ;SECOND WORD OF PATTERN 0 
208 :<..> START EXECUTION 
508 ; EXAMPLE #9 
AS eee, aoe en oe 
> 
511 DRIVE=0,1,4<CR> :TEST DRIVES 0,1, AND 4 IN SEQUENCE 
312 TEST=0-3/<CR> SCHANGE TEST 5 
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1..<CR> ;CHANGE LAST CYLINDER FROM 822 TO 1 
;START PROGRAM EXECUTION. 


OPERATIONAL SWITCH SETTINGS 


WITH SW<15:0>=0 THE PROGRAM WILL PRINT OUT ON 
ERRORS AND CONTINUE IN TEST. 
THE SWITCH SETTINGS ARE: 


SW<15>=1...HALT ON rom 

...LOOP ON TEST 

.--- INHIBIT ERROR TYPEOUTS 
«+e TYPE TEST NUMBER 

.- INHIBIT ITERATIONS 
«++RING BELL ON ERROR 
~»-LOOP ON 


=| 
1 
1 
SwW<11> : 
1 ERROR 
1...PRINT ERROR MESSAGE ON LINE PRINTER 
‘° SE FROM TTY 
1. 
1 
1 
1 
1 


SW<10> 


«+ eREAD 'C.SWR' 


STS 12-15) 
- REPORT ONE ERROR 445 ECTOR (TESTS 16 & 17) 
.. INHIBIT WRITES (TEST 20) 
«+e INHIBIT WRITE CHECKS (TEST 20) 
«++ INHIBIT READ AND SOFTWARE COMPARES (TEST 20) 
«+e INHIBIT SOFTWARE COMPARES (TEST 20) 
SW<00>=1...PERFORM READ AFTER WRITE CHECK ERROR (TEST 20) 


IF THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR (1.E. AN 11/34) 
THE aaiteut WILL DETERMINE THAT THE HARDWARE SWITCH wage ER 1S 

NOT PRESENT AND WILL USE A ‘SOFTWARE’ SWITCH REGISTER. T 

*SOF TWARE° SWITCH REGISTER IS LOCATED AT LOCATION 176 (8). THE 
SETTINGS OF THE ‘SOFTWARE* SWITCHES ARE CONTROLLED THROUGH o KEYBOARD 
ROUTINE WHICH Hecke gt™ iy fn A ‘CONTROL G*. THE Hae cape ee WILL 


“ 
=< 
A 
Oo 
co 
v 
1 tt te te te te tt te te ee 


PT. THE 
*SOFTWARE’ SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE 
TO THE PROMPT FROM THE SWITCH ENTRY ROUTINE: 


"SWR = NNNNNN NEW =" 


EACH TIME SWITCH SETTING ARE ENTERED, THE ENTIRE SWITCH REGISTER 

] reat se BE ENTERED. LEADING ZEROS ARE NOT REQUIRED., "RUBOUT' AND 
* ONTROL U' FUNCTIONS MAY BE USED TO CORRECT TYPING ERRORS 

DURING SWITCH ENTRY. 


ON aint gory WITH HARDWARE SWITCH ry pg THE "SOFTWARE’ SWITCH 

REGISTER MAY BE USED. IF THE PROGRAM FINDS ALL 16 SWITCHES IN THE 
Pp’ IT TON ALL SWITCH REGISTER REFERENCES WILL BE TO THE 

SOFTWARE?’ REGISTER AND THE PROCEDURES DESCRIBED ABOVE MUST 


SEQ 0012 


CZRMVAD 


MADINA) 
SNS 
ODONOUS wr 


N 1 
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5.2 


6.1 


CONTROL SWITCH SETTINGS 
THE CONTROL SWITCH SETTINGS ARE ENTERED THROUGH THE KEYBOARD. 


TO ENTER THE CONTROL SWITCH SETTING MODE PLACE SW<07>=1 
BEFORE PRESSING START. THEN UPON STARTING THE PROGRAM IT 

WILL TYPE THE PRESENT CONTENTS OF THE CONTROL SWITCH REGISTER 
(C.SWR) AND WAIT FOR THE NEW SETTING TO BE INPUT. THE INPUT 
STRING MUST CONSIST OF 1 TO 6 OCTAL DIGITS, TWO PERIODS (..), 
AND A CARRIAGE RETURN. 


THE C.SWR SETTINGS ARE: 


C.SWR<15>= =0.. «WRITE PACK BEFORE TESTING (TEST16) 
- INHIBIT WRITE PACK BEFORE TESTING (TEST16) 
C. SWRC14>=0; 2 NO og BETWEEN DRIVE FUNCTIONS 
=1...STALL AFTER EVERY DRIVE FUNCTION 
C.SWR<13>= 0: 1Use SPECIFIC STALL TIMES 
=1...USE RANDOM STALL TIMES 
C.SWR<12>=0...NO INCREMENTING STALLS IN TEST 4 
=1...PERFORM INCREMENTING STALLS IN TEST 4 
C.SWR<O8>=0...D0 IMPLIED SEEKS WITH DATA TRANSFERS 
=1...D00 EXPLICIT SEEKS BEFORE DATA TRANSFERS 
C.SWR<07>=0...D0 READ HEADER AND DATA COMMANDS IN TESTS 0-7 
=1...D0 EXPLICIT SEEK COMMANDS IN TESTS 0-7 
C.SWR<06>=0...60 HZ POWER SOURCE 
=1...50 HZ POWER SOURCE 
C.SWR<05>=0...ALLOW SOFTWARE TIMEOUTS(ENABLE WATCHDOG TIMER) 
=1... INHIBIT SOFTWARE its nits hea WATCHDOG TIMER) 
C.SWR<00>=0.. OPERATE IN 32. SECTOR (16 BIT) MODE 
=1...OPERATE IN 30. SECTOR (18 BIT) MODE 


THE DEFAULT CONDITION OF C.SWR<15:00>=0. 
REFER TO 4.3.1 FOR C.SWR SELECTION 


ERRORS 


TO THE ERROR WILL BE TYPED. EACH ERROR TYPEOUT WILL CONTAIN 
THE FOLLOWING: 


1. AN ERROR MESSAGE 
2. A DATA HEADER 
3. A DATA STRING 


REFER TO THE ae eta SECTION FOR THE DIFFERENT ERRORS 
THAT CAN OCCUR 


ERROR TYPES 


SEQ 0013 
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6.1.1 


6.1.2 


6.1.3 


b.< 
6.2.1 


6.2.2 


6.2.3 
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THE ERRORS THAT OCCUR IN THIS PROGRAM FALL INTO THREE 
(3) CATEGORIES DEFINED AND EXPLAINED AS FOLLOWS: 


DRIVER ERROR 


THESE ERRORS WILL BE DETECTED BY THE RH/RM DRIVER. 
THERE ARE TWO CLASSES OF DRIVER ERRORS; THOSE THAT 

CAN NOT BE IDENTIFIED IN A MANNER THAT ALLOWS THE 
INFORMATION TO BE RETURNED TO A ‘DATA PARAMETER BLOCK’ 
(DPB) AND THOSE THAT CAN. THE FIRST CLASS WILL BE 
REPORTED BY ERROR CALLS (EMT'S) 1-5 WITHIN THE hea 
THE SECOND CLASS WILL PASS THE ERROR Ss ae TO THE 
STATUS/ERROR WORD (DPB+16) OF THE PROPER DPB. 


NON-FATAL ERRORS 

THESE ERRORS WILL BE DUE TO ‘DISK’ OR ‘'DATA'’ FAILURES 
WHICH WILL BE REPORTED AS THEY OCCUR. AFTER REPORTING 
THE ERROR THE PROGRAM WILL CONTINUE TESTING. 

FATAL ERRORS 


THIS TYPE OF ERROR WILL BE THE RESULT OF ANY KIND 


OF ERROR THAT INHIBITS THE PROGRAM FROM TESTING THE DISK. 
THIS ERROR WILL BE REPORTED WHEN IT OCCURS, THEN THE PROGRAM 


WIL! ABORT THE TEST AND GO TO THE END OF PROGRAM. 
ERROR RECOVERY 
PRETES™ =" xOR 


WHEN THIS TYPE OF ERROR OCCURS IT WILL BE REPORTED. THEN DEPENDING 
ON HW T4E PROGRAM WAS STARTED IT WILL ASK FOR THE DRIVES AND 


ADDRESSES OR 1 ESTING OR RETURN TO MONITOR. 
NON-FATAL ERROR 


WHEN THIS TYPE OF ERROR OCCURS 4 aii BE REPORTED AND 
THE PROGRAM WILL CONTINUE IN TEST 


FATAL ERROR 
WHEN THIS TYPE OF ERROR OCCURS IT WILL BE REPORTED. THE 


PROGRAM WILL ABORT THE TEST AND GU TO THE END OF PROGRAM. 


RESTRICTIONS 

THE PROGRAM WILL TEST THE DRIVES IN EITHER 16 B 

BIT MODE DEPENDING ON THE SETTING OF ‘S.SWR<00>'. ° 
1S 0, ALL OF THE DRIVES WILL BE TESTED IN 16 BIT MODE; IF 
1S 1, ALL OF THE DRIVES WILL BE TESTED IN 18 BIT M 


IT MODE OR IN 18 
*. IF 'C.SWR<00>* 


ODE. THE PROGRAM 


SEQ 0014 


eae 
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8.1 


8.2 


8.3 


$.3.1 


SEQ 0015 


HAS NO PROVISIONS FOR TESTING DRIVES WITH INTERMIXED PACKS OR TESTING 
BOTH 16 BIT MODE AND 18 BIT MODE DRIVES ON THE SAME SYSTEM. 
ACT11 AUTOMATIC MODE ASSUMES 16 BIT MODE. 


BEFORE THE PROGRAM IS STARTED, PROPERLY FORMATTED PACKS — BE MOUNTED 
ON THE DRIVES WHICH WILL BE TESTED. THE PROGRAM ASSUMES A 

PROPERLY FORMATTED PACK. THE FORMAT OF THE PACK IS NOT ALTERED 

BY THE PROGRAM. 


MISCELLANEOUS 


EXECUTION TIME 


THE PROGRAM REQUIRES APPROXIMATELY 15 MINUTES TO MAKE ONE PASS WITH 
RMO3/2 DRIVES AND APPROXIMATELY 16.5 MINUTES TO A PASS WITH RMOS 
DRIVES. THIS ASSUMES THE DEFAULT TEST SEQUENCE (TESTS 0-10, 12-20) 
AND DEFAULT TEST PARAMETERS. 


STACK POINTER 
THE STACK POINTER IS INITIALLY SET TO 1100. 
TIMING TESTS (TESTS 12-15) PRINTOUTS 


AT THE COMPLETION OF EACH OF THE TIMING TESTS THE TIME OF THE 
MINIMUM SEEK, MAXIMUM SEEK, AND THE AVERAGE OF ALL OF THE 
SEEKS PERFORMED ARE TYPED ON THE TTY. THE NUMBER OF SEEKS THAT 
HAD TIMES BELOW THE MINIMUM TIME ALLOWED WILL BE TYPED ON 

THE SAME LINE AS THE MINIMUM TIME. THE NUMBER eps < 
MAXIMUM WILL BE TYPED ON THE SAME LINE AS THE MAXIMU 

TIME, AND THE TOTAL NUMBER OF SEEKS PERFORMED WILL BE ON THE 
SAME LINE AS THE AVERAGE. 


NOTE: THE PROGRAM STALLS FOR 2 MILLISECONDS BETWEEN SEEK ORDERS, 
THIS STALL TIME IS NOT INCLUDED IN THE CALCULATED SEEK TIMES. 
THE SEEK TIMES SPECIFIED ARE POSITIONER MOVEMENT TIMES ONLY 
AND ARE NOT A MEASUREMENT OF EFFECTIVE SEEK TIME. 


TIMING TOLERANCES 

1. TEST 12 == ROTATIONAL SPEED TIMES 
~-TIMES FOR RMO5/3 DRIVES-- 
RINIMUR=16340 US 


MAXIMUM=17000 US 
NOMINAL=16670 US 


50 HZ 
MINIMUM=1625 
MAXIMUM=17090 US 
NOMINAL=16670 US 
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8.3.2. 


--TIMES FOR RMO2 DRIVES-- 


60 HZ 

MINIMUM=24500 US 
MAXIMUM=25500 US 
NOMINAL=25000 US 


50 HZ 

MINIMUM=24370 US 
MAXIMUM=25630 US 
NOMINAL=25000 US 


2. TEST 13 == ONE CYLINDER SEEK TIMES 


MAXIMUM=7000 US 
NOMINAL=6000 US 


3. TEST 14 == ACCESS TIME MEASUREMENT 


MAXIMUM=32000 US 
NOMINAL=30000 US 


4. TEST 15 == MAXIMUM SEEK TIMES 


MAXIMUM=57000 US 
NOMINAL=55000 US 


TIMING TESTS PRINTOUT EXAMPLES 


EXAMPLE #1 


90 US 
AvG=16680 US 10 SEEKS TIMED 
ONE CYLINDER SEEK TIMES 
* FORWARD 


S 
AvG=5550 ¥ 821 SEEKS TIMED 


=5960 U 
AvG=5430 US 822 SEEKS TIMED 
ex TIME MEASUREMENTS 
* FORWARD 
MIN= 37770 US 


$ 
US 128 SEEKS TIMED 


SEQ 0016 
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821 


. 
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8.4 


AVG=28220 US 128 SEEKS TIMED 
MAXIMUM + TIMES 


S 
xr 51010 US 128 SEEKS TIMED 


S 
US 128 SEEKS TIMED 


690 U 

AVG= 16680 US 10 SEEKS TIMED 
ONE CYLINDER SEEK TIMES 

* FORWARD 
MIN=5470 US 
MAX=7940 US 3 ABOVE THE MAXIMUM OF 7000 US 
AVG=5830 US 821 SEEKS TIMED 

* REVERSE 
MIN=5040 
MAX=5970 U 
AVG=5330 US 822 SEEKS TIMED 
ACCESS TIME MEASURMENTS 

* FORWARD 


MAX=32620 US 73 ABOVE THE MAXIMUM OF 32000 US 
AvG=30320 US 128 SEEKS TIMED 


MAX=32230 US 128 ABOVE THE MAXIMUM OF 32000 US 
AvG=32800 US 128 SEEKS TIMED 
MAX] MUM + TIMES 


MAX=57240 US 128 ABOVE a MAXIMUM OF 57000 US 
AVG=57020 US 128 SEEKS TIMED 


US 128 ABOVE THE MAXIMUM OF 57000 US 
128 SEEKS TIMED 


END OF TEST 


WITH ALL SWITCHES ON A ‘'0'' AN ‘‘END OF PASS'' MESSAGE WILL BE 
TYPED AT THE COMPLETION OF TESTING A DRIVE AND THE ‘’END OF TEST" 
TYPEOUT WILL OCCUR WHEN ALL DRIVES HAVE BEEN TESTED. 


SEQ 0017 
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9.1 


9.2 


PROGRAM DESCRIPTION 


wees PROGRAM CONTAINS NINTEEN TESTS NUMBERED 0-22 IN OCT 

TESTS O-7 & 11 WILL READ THE CYLINDER, TRACK, AND SECTOR. Tif ORMAT ION 
FROM THE HEADER, USING A ‘'READ HEADER AND DATA arent AND 
THEN CHECK THE iNFORR ATION FOR nt oe a THUS, INSURING 

THE SEEK OPERATION FUNCTIONS PROPERLY. TESTS f2-15- WILL MEASURE 
THE ROTATIONAL SPEED, THE ONE CYLINDER SEEK, THE ACCESS TIME, 
AND THE MAXIMUM SEEK TIMES TO ENSURE THEY ARE ALL WITHIN THE 
TOLERANCES ALLOWED. TEST 16 AND 17 ENSURES THE SECTOR AND 

TRACK ADDRESSING CIRCUITRY WORKS PROPERLY. TEST 20 VERIFIES 

THE DATA STORAGE AND RETRIEVAL CAPABILITIES ARE FUNCTIONAL. 

et Hy 21 WILL STRESS AND CHECK THE READ/WRITE AND SERVO 


THE PROGRAM WILL START BY IDENTIFING ITSELF AND DETERMINING ALL 
DRIVES THAT ARE AVAILABLE FOR TESTING. THEN BEGINNING WITH 
THE LOWEST NUMBERICAL DRIVE AND PROCEEDING IN SEQUENTIAL Teta 
ALL OF THE DRIVES WILL BE TESTED. ONE PASS THROUGH THE TEST 
SEQUENCE (TESTS 0-10,12-20) WILL BE PERFORMED ON EACH DRIVE BEFORE 
MOVING TO THE NEXT DRIVE IN SEQUENCE. DRIVE TO BE 
a's ED WILL BE TYPED AT THE BEGINNING OF EACH PASS, AN ‘'END 
F PASS'' MESSAGE WILL BE TYPED AT THE COMPLETION OF EACH PASS, 
AND AN “END OF TEST’ MESSAGE WILL BE TYPED AFTER TESTING ALL 


REFER TO THE lnm SECTIONS FOR DETAILED DESCRIPTIONS 
OF EACH TEST 


TEST 0 = RECAL/SEEK TEST 

THIS TEST WILL CAUSE THE DRIVE TO EXECUTE A RECALIBRATE 
COMMAND CYCLE AND THEN SEEK FORWARD TO CYLINDER “LC’’. AT 
THE COMPLETION OF BOTH COMMANDS, STATUS INDICATIONS ARE 
CHECKED TO ENSURE NO ERRORS OCCURRED. 


THE PARAMETERS USED BY THE TEST ARE GIVEN BELOW: 


R - 200 
LC . 822 
FT ° Q 
FT’ - 0 
FS ° 0 


TEST 1 = SEEK/SEEK TEST 


THIS TEST WILL A i THE DRIVE TO EXECUTE A FORWARD SEEK 
CYCLE TO ‘LC", *! es .s FOLLOWED BY A REVERSE SEEK CYCLE TO 
"Cc". ey fg THE COMPLETION OF EACH SEEK, THE PROPER 
INDICATORS ARE EXAMINED TO ENSURE PROPER OPERATION. 


SEQ 0018 
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9.3 


9.4 


9.5 


THE PARAMETERS USED BY THE TEST ARE GIVEN BELOW: 
100 
256 


ane ae Te oD 
NAaAATDTIO 
@#eeeopetereee_e 


ole lololeoleolele t=) 


- 
[7a] 


TEST 2 = INCREMENTAL SEEK TEST 


THIS TEST WILL COMMAND FORWARD SEEK CYCLES TO ADVANCE THE 
CYLINDER ADDRESS FROM ‘'FC'’ TO ‘'LC’’ BY THE INCREMENT "IC". 
WHEN sensi teen” CYLINDER ADDRESS (NC) EXCEEDS 


UNTIL ‘'NC'' IS LESS THAN "'FC'’, AT THE COMPLETION OF EACH 
SEEK COMMAND THE PROPER INDICATORS ARE EXAMINED TO 
ENSURE PROPER OPERATION. 


THE PARAMETERS USED BY THE TEST ARE GIVEN BELOW: 


R - 1 
FC * 0 
LC - 822 
IC - 1 
FT - 0 
FT" - 0 
FS - 0 


TEST 3 = STEPPING SEEK TEST 


THIS TEST WILL COMMAND SEEK CYCLES TO CYLINDER 0,1,2,4, 
8,16,32,64,128,256 AND 512. AT THE COMPLETION OF EACH SEEK 
COMMAND Tt Thé PROPER INDICATORS ARE EXAMINED TO VERIFY PROPER 


THE PARAMETERS USED BY THE TEST ARE GIVEN BELOW: 


oCoOo—-Nwoew 


TEST & = OSCILLATING SEEK TEST 


THIS TEST WILL ore art ress FROM ‘‘FC*’ TO "'NC’’ AND BACK 

‘FC’*. "'NC'' STARTS AT "'FC’’ AND INCREMENTS BY “‘IC"* UP TO ee 
"LC, THEN IS De CREMENTED BY ee BACK TO CYLINDER REC, AT THE 
COMPLETION OF EVERY SEEK COMMAND THE PROPER INDICATORS ARE 


SEQ 0019 





H 2 
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SEQ 0020 

or EXAMINED TO ENSURE PROPER OPERATION. 

are THE FOLLOWING PARAMETERS ARE USED BY THE TEST: 

974 R - 1 

975 FC ” 0 

976 LC - 822 

977 Ic - 1 

978 FT - 0 

979 FT’ ~ 0 

a pas tabpeclle 

4 9.6 TEST 5 = CONVERGING/DIVERGING SEEK TEST 

984 THIS TEST WILL CAUSE THE DRIVE TO EXECUTE FORWARD AND REVERSE 
985 SEEKS iy "NCI" AND "'NC2"' RESPECTIVELY, ‘'NC1"’ WILL BE INCREMENTED 
986 BY IC’ AND ''NC2" WILL BE DECREMENTED BY "IC" wt. "NCI" IS 

987 GREATER THAN THE INITIAL VALUE OF os we “wea” 

988 LESS THAN THE INITIAL VALUE OF ‘'NC1"’ THE COMPLETION OF 

989 EACH SEEK COMMAND THE PROPER INDICATORS ARE EXAMINED TO 

990 ENSURE PROPER OPERATION. ‘'NC1' "'NC2'' DEFAULT TO 

991 "EC'' AND "'LC'' RESPECTIVELY. 

pad THE FOLLOWING PARAMETERS ARE USED BY THE TEST: 

994 R ” 1 

995 FC - 0 

996 LC ~ 822 

997 IC - 1 

998 FT - 0 

999 FT’ - 0 

194 plea aka 
1008 9.7 TEST 6 = SERVO ADDRESSING LOGIC NOISE GENERATOR TEST 

1004 IN THIS TEST A SEEK 1S DONE TO CYL ‘'NC'' THEN A SEEK TO 

1005 NC+4 THEN NC+1 THEN NC+3 THEN NC4+2 THEN NC+5. NOW ‘'NC’’ IS UPDATED 
1006 BY "'IC'’ AND THE ABOVE SEQUENCE IS REPEATED UNITL "'LC'’ IS 
1007 EXCEEDED BY ANY OF THE ABOVE VALUES. THE INITIAL VALUE OF ‘NC’ 
1008 T THE COMPLETION OF EACH SEEK COMMAND THE 

1009 PROPER INDICATORS ARE EXAMINED TO ENSURE PROPER OPERATION. 

+ 44 THE FOLLOWING PARAMETERS ARE USED BY THE TEST: 

1013 R ~ 1 

1014 FC - 0 

1015 LC - 822 

1016 Ic - 1 

1017 FT - 0 

1018 FT’ - 0 

1019 FS - 0 

1020 

10¢1 9.8 TEST 7 = RANDOM SEEK TEST 

1023 THIS TEST PERFORMS RANDOM SEEK OPERATIONS BETWEEN CYLINDERS ‘FC* 
1024 c* TER EACH SEEK, THE POSITION OF THE DRIVE IS VERIFIED ay 
1025 READING A SECTOR FROM THE CURRENTLY ADDRESSED CYLINDER AND TRACK 
1026 THE TRACK ADDRESS IS INCREMENTED FOR EACH SEEK SO THAT VERIFICATION 


2 
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9.10 TEST 11 = ALL SEEKS TEST 


THIS TEST VERIFIES THAT THE DISK DRIVE CAN SEEK FROM EACH CYLINDER 
TO ALL OTHER CYLINDERS. 


BEGINNING WITH CYLINDER ‘FC’, THE TEST SEEKS TO EACH CYLINDER 
BETWEEN ‘FC’ AND ‘LC® FROM CYINDER ‘FC’. THE BEGINNING CYLINDER 
ADDRESS IS INCREMENTED AND THE TEST SEEKS BETWEEN THE NEW CYLINDER 
ADDRESS AND ALL CYLINDERS BETWEEN ‘FC’ AND ‘LC*. THE SEQUENCE 
CONTINUES UNTIL ALL CYLINDERS HAVE BEEN CHECKED. 


THE FOLLOWING PARAMETERS ARE USED BY THIS TEST: 
R - 1 


1027 OF POSITIONING OCCURS USING EACH HEAD. TRACK ADDRESSES ARE INCREMENTED 
bt BETWEEN PARAMTERS ‘FT* AND ‘LT’. 

HS 34 THE FOLLOWING PARAMETERS ARE USED BY THE TEST: 

1032 R ° 5000 

1033 FC - 0 

1034 LC 7 822 

1035 FT - 0 

1036 LT - 4 

1037 FT’ ° 0 

1038 LT - 18 

1039 

ieee 9.9 TEST 10 = SERVO SETTLE DOWN TEST 

1042 THIS TEST VERIFIES THAT THE SERVO HAS SETTLED DOWN AND THAT 

1043 THE DRIVE 1S ON CYLINDER WHEN THE DRIVE INDICATES SEEK COMPLETE. 
1044 RANDOM SEEKS ARE ISSUED BETWEEN CYLINDERS 'NC1° AND ‘NC1+IC' 

1045 ("NC1* STARTS AT VALUE 'FC'). AT THE COMPLETION OF 1000 (10) SEEKS, 
1046 "NC1' IS INCREMENTED BY VALUE ‘IC* AND THE SEQUENCE IS REPEATED. 
9 THE TEST IS COMPLETED WHEN "NC1" HAS BEEN INCREMENTED BEYOND ‘LC’. 
1049 WHEN THE SEEK COMPLETES, THE PROGRAM READS THE DRIVE'S LOOK-AHEAD 
1050 REGISTER (RMLA) TO DETERMINE THE ADDRESS OF THE SECTOR ROTATING INTO 
1051 POSITION. THE PROGRAM THEN ISSUES A WRITE HEADER AND DATA COMMAND 
1052 FOR THAT SECTOR. ERRORS IN THIS TEST INDICATE THAT THE SERVO SYSTEM 
1053 MAY NOT BE ADJUSTED CORRECTLY, THAT THE DRIVE IS MALFUNCTIONING, OR 
O28 THAT A PACK WITH MARGINAL SERVO TRACKS IS MOUNTED ON THE DRIVE. 
1056 THIS TEST 1S VALID ONLY IF THE OPERATION IS STARTED WITHIN A FEW 
1057 HUNDRED MICRO=SECONDS AFTER SEEK DONE OCCURS. THE NECESSARY TIME 
1058 DEPENDENT PARAMETERS OCCUR WITHIN THE REQUIRED TIME RANGE FREQUENTLY 
$44 ENOUGH TO PERMIT THIS TEST TO BE EFFECTIVE. 

Hy +t THE FOLLOWING PARAMETERS ARE USED BY THE TEST: 

1063 R 1 

1064 FC - 0 

1065 LC « 822 

1066 Ic - 100 

1067 FT ° 0 

1068 FT ° 0 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 

1080 

1081 

1082 

1083 


OWN NNN NNN NSO 
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SEQ 0022 
084 FC . 0 
085 LC ” 822 
086 IC - 1 
087 FT . 0 
089 4 0 
090 
344 9.11 TEST 12 = ROTATIONAL SPEED TIMING TEST 
093 THIS a te WILL START hea TO CYLINDER ‘FC’, TRACK ‘FT’, 
094 SECTOR 'FS'. AS SOON AS THE INTERRUPT OCCURS, THE GC BIT IS 


SET AGAIN AND THE OPERATION IS TIMED. THIS PROCEDURE 1S 
REPEATED 10 TIMES THEN THE AVERAGE TIME IS CALCULATED AND 
CHECKED TO ENSURE IT IS WITHIN TOLERANCE: 


RM05/3: 


oooo 
oowono 
anoOu 


-67 MS/REV + OR = 2% IF 60HZ 
7 MS/REV + OR - 2.5% IF SOHZ. 


RMO2: 
25.00 MS/REV + OR = 2% IF 60HZ 
25.00 MS/REV + OR - 2.5% IF SOHZ. 


THE FOLLOWING PARAMETERS ARE USED BY THE TEST: 


eeones 
oooo— 


9.12 TEST 13 = ONE CYLINDER SEEK TIMING TEST 


THIS TEST WILL COMMAND FORWARD SEEK CYCLES TO o™E THE 
CYLINDER BY ONE UNTIL THE INCREMENT IS GREATER THAN THE 
CYLINDER ‘LC’, THEN REVERSE SEEK TO CYLINDER ‘FC’. E 
TIME TO PERFORM EACH SEEK IS CHECKED TO ENSURE IT DOES NOT 
EXCEED THE MAXIMUM TIME PERMITTED FOR A ONE CYLINDER SEEK. 
THE TIME MUST BE LESS THAN 10MS. 


THE TEST USES THE FOLLOWING PARAMETERS: 


R ° 1 
FC - 0 
LC - 822 


9.13 TEST 14 = ACCESS TIME MEASUREMENT 


THIS TEST WILL COMMAND A FORWARD SEEK FROM CYLINDER "FC" 10 
CYLINDER ‘LC’, THEN A REVERSEK FROM CYLINDER ‘LC’ TO 

CYLINDER 'FC'. BOTH SEEKS ARE TIMED AND CHECKED TO ENSURE THEY 
ARE WITHIN THE TOLERANCE ALLOWED FOR THE ACCESS TIME MEASURMENT. 
THIS SEQUENCE IS REPEATED 128 TIMES (FOR A TOTAL 

OF 256 SEEKS). THE AVERAGE ACCESS TIME MUST BE LESS THAN 50 MS. 


THE TEST USES THE FOLLOWING PARAMETERS: 


ee ee ee ae ce a ee ee em ee ee a ee ee me ce ee a ee ce ee ee ce ce a ed ed ee ed 


kn in a tk tn at tn at wn at at atk i tn tn at a os SS Ss SS Ss SS ss Ss SS SS SO 


AWW AIA AI AI RO PUPP PINUPS OOO Ot Ow KS CDOOCOOCOCOOCOCOCOOCOO NZ 
COONS UF WN | 0 OO -VO NEW  O OONO VE WN O OONOU Fw OO 


K 
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SEQ 0023 
R > 1 
FC - 0 
LC = 255 


9.14 TEST 15 = MAXIMUM SEEK TIMING TEST 


THIS TEST WILL COMMAND A FORWARD SEEK FROM CYLINDER ‘FC’ TO 
CYLINDER ‘LC’, THEN A REVERSE SEEK FROM CYLINDER ‘LC’ TO 
CYLINDER "FC'. BOTH SEEKS ARE TIMED AND CHECKED 10 ENSURE 

THEY ARE WITHIN THE TOLERANCE ALLOWED 4 3G MAXIMUM SEEK 
TIME. THIS SEQUENCE IS REPEATED 128 TIMES (FOR 

a. OF 256 SEEKS). THE MAXIMUM SEEK TIME MUST BE LESS THAN 


THE TEST USES THE FOLLOWING PARAMETERS: 


R * 1 
FC - 0 
LC ° 822 


9.15 TEST 16 = SECTOR ADDRESSING TEST 


THIS TEST WRITES DATA INTO ALL SECTORS OF TRACK ‘'FT’’. THE 

DATA wt BE 256 WORDS OF THE SECTOR ADDRESS OF THE SECTOR 

BEING WRITTEN. A WRITE CHECK IS PERFORMED, THE BUFFER IS 

CLEARED (10 177400) AND THE DATA IS READ AND COMPARED. THEN SECTOR 0 
S REWRITTEN AND SECTORS 0 - 31 ARE WRITE CHECKED. THEN 

SECTOR 1 IS REWRITTEN AND SECTORS 0 - 31 ARE WRITE CHECKED. 

THIS REWRITE AND WRITE CHECK PROCEDURE IS CONTINUED UP THROUGH 

REWRITE SECTOR 31 AND WRITE CHECK SECTORS 0-31. 


THE TEST USES THE FOLLOWING PARAMETERS: 


toes 
ooo— 


9.16 TEST 17 = TRACK ADDRESSING TEST 


THIS TEST WILL WRITE DATA IN THE FORM OF TRACK ADDRESSES 

IN CYLINDER ‘‘FC'’ SECTOR ‘'FS'’ OF EVERY TRACK WITH EACH TRACK 
GETTING ITS OWN TRACK ADDRESS. 

A WRITE CHECK IS THEN PERFORMED ON EACH TRACK TO INSURE 

THE DATA IS VALID. THEN TRACK 0 1S REWRITTEN AND TRACK 1 
THROUGH LAST TRACK IS WRITE CHECKED. THEN TRACK 1 IS 
REWRITTEN AND TRACK 2 THROUGH LAST TRACK IS WRITE CHECKED. 
THIS PROCEDURE IS CONTINUED UP THROUGH REWRITING NEXT TO 
LAST TARCK AND WRITE CHECKING LAST TRACK. 


THE TEST USES THE FOLLOWING PARAMETERS: 
bg 1 

C - 0 

S ad 0 

9.17 TEST 20 = DATA TEST 


em a a kk a eed tk a 
bales = 


ee ee ce ee ee et ce ee ee ee ed ow 


DOO OOO OO WWW WW W009 00 OD NI NIN SIN NSN SIO AAO AAAOAAOASAMNINNNINNNUI EE SSPE LLL LE 
NOU EWN 0 OONO US WR | OD OONO UE WN OOONA UE WR O DONO UE WHO OONOUFWWR— 


SEQ 0024 
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SEQ 0025 
1255 
1526 THE TEST USES THE FOLLOWING PARAMETERS: 
1258 R - 1 
1259 FC ~ 0 
1260 LC - 822 
1261 Ic - 64 
1262 FT - 0 
1263 LT - 4 
1264 IT - 1 
1265 FT’ - 0 
1266 LT’ - 18 
1267 IT’ - 1 
1268 FS - 1 
1269 LS - 0 
1st PAT ~ 177777 
3 9.18 TEST 21 = RANDOM ADDRESS AND RANDOM PATTERN TEST 
1274 STARTING AT ‘'FC'' AND GOING THROUGH "'LC'’ THE DISK PACK 
1275 1S WRITTEN WITH A RANDOM PATTERN. THE FIRST TWO WORDS 
1276 OF EACH SECTOR A aes BE THE BASE OF THE RANDOM GENERATOR 
1277 FOR THAT SECTOR 
1278 HE TEST THEN PERFORMS THE FOLLOWING SEQUENCE ‘'R’’ TIMES 
5 144 "'R'' DEFAULTS TO 20,000. 
1281 1) GENERATE A RANDOM ADDRESS 
1282 2) WRITE A RANDOM PATTERN AT THE ADDRESS 
1283 GENERATED IN 1. 
1284 3) GENERATE A RANDOM ADDRESS 
1285 4) READ THE SECTOR AT THE ADDRESS 
1286 GENERATED IN 3. 
1287 5) DO A SOFTWARE CHECK OF THE DATA READ IN 4. 
1288 6) DO A ot he CHECK OF THE DATA WRITTEN IN 2 
1289 7) GENERATE A RANDOM ADDRRESS 
1290 8) READ THE SECTOR AT THE ADDRESS 
1291 GENERATED IM 7. 
1292 9) DO ‘ SOFTWARE CHECK OF THE DATA READ IN 8 
6344 10) DO A WRITE CHECK OF THE DATA WRITTEN IN 2 
4344 THE TEST USES THE FOLLOWING PARAMETERS: 
1297 R - 20000 
1298 FC - 0 
1299 LC - 822 
1300 
64 9.19 TEST 22 - ACCESS TIME ADJUSTMENT TEST 
1303 THIS TEST PERFORMS 1 igh are CYLINDERS 0 & 255 TO ALLOW THE 
1304 OPERATOR TO ADJUST THE ACCESS TIME ON AN RMO5/3/2 USING THE 
1305 DDU. THE PROGRAM STALLS APPROXIMATELY 5 SECONDS BETWEEN SEEKS 
HF 54 SO THAT THE ACCESS TIME INDICATORS ON THE DDU MAY BE OBSERVED. 
Ht THE TEST USES THE FOLLOWING PARAMETERS: 
1310 fe ~ 5000 
1311 FC - 0 
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| SEQ 0026 


LC - 255 


10. PROGRAM LISTING 


‘qian cage bn 
| CZRMVAO RMOS/3/2 EXT'D DR TST 


} 
| 


46 


47 


53 


MAMAN 
OVONO US 


sPROGRAM REVISION #001 
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SEQ 0027 


- TITLE ict angn/ sve EXT'D DR TST 
(C) 1980 


: *COPYRIGHT 


:*DIGITAL EQUIPMENT CORP. 


; MAYNARD , MASS. 01754 


;*PROGRAM BY MIKE LEAVITT 


SeTHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
s SPACKAGE (MAINDEC-11-DZQAC-C4), 1980. 


:SBTTL OPERATIONAL SWITCH SETTINGS 


SWITCH 


oe. 
ese neneneneeeeeeneneeeeeeee 


OVW UA NWOOWSE WM 


SWITCH 


STATE 


_—OoO—-O0O—-" O — OO O 


> ON or 


LOOP ON TEST 
INHIBIT ar TYPEOUTS 
TYPE TEST NUMBER 


LOOP 
“SBTTL OPERATIONAL SWITCH SETTINGS 


HALT ON ERROR 

LOOP ON TEST 

INHIBIT pees TYPEOUTS 
weit ON ERR 


P ON ERR OR 
PRINT ERROR MESSAGE ON LINE PRINTER 
READ 'C.SWR' SETTINGS FROM TTY 

INHIBIT TIME REPORTS (TESTS 12-15) 

REPORT ONE ERROR PER SECTOR (TESTS 16 & 17) 
INHIBIT WRITES (TEST 20) 

INHIBIT WRITE CHECKS (TEST 20) 

INHIBIT READ AND SOFTWARE COMPARES (TEST 20) 
INHIBIT SOFTWARE COMPARES (TEST 20) 

PERFORM READ AFTER WRITE CHECK ERROR (TEST 20) 


» SBTTL CONTROL SWITCH SETTINGS 


1) 
NG (TEST 21) 


STALL AFTER EVERY DRIVE FUNCT 
USE SPECIFIC STALL TIME 

USE RANDOM STALL 

NO INCREMENTING STALL IN TEST 4 


EAD 
DO EXPLICIT SEEKS IN TESTS 0-11 


CZRMVAO RMO5/3/2 EXT'D 


CONTROL SWITCH SETTINGS 


001100 
104000 
000004 


000011 


000007 


000000 


000340 


100000 


000400 


¢ 3 
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7* 6 0 60 HZ 

;* 1 50 42 

7* 5 0 RUN WATCHDOG TIMER 

:* 1 INHIBIT WATCHDOG TIMER 

7* 0 0 TEST DRIVE(S) IN 32. SECTOR (16 BIT) MODE 
3* 1 TEST DRIVE(S) IN 30. SECTOR (18 BIT) MODE 


-SBTTL BASIC DEFINITIONS 
s*INITIAL ADDRESS OF THE STACK POINTER *** 1100 ### 
STACK = 1100 


A 
ERROR = EMT 7;BASIC DEFINITION OF ERROR CALL 
SCOPE = JOT 3;BASIC DEFINITION OF SCOPE CALL 
tee etn DEFINITIONS 
= 11 :;CODE FOR HORIZONTAL TAB 
- = 12 3;CODE FOR LINE FEED 
CR = 15 3;CODE FOR CARRIAGE RETURN 
CRLF = 200 3:CODE FOR CARRIAGE RETURN@LINE FEED 
oe, - = 177776 :;PROCESSOR STATUS WORD 
STKLMT = 177774 +s STACK LIMIT REGISTER 
PIRQ = 177772 sPROGRAM INTERRUPT rsh hy REGISTER 
DSWR = 177570 : HARDWARE SWITCH REGISTER 
DDISP = 177570 ;;HARDWARE DISPLAY REGISTER 
;*GENERAL PURPOSE REGISTER hep tr, 
RO = 20 3;GENERAL REGISTER 
R1 = %1 33 ERAL REGISTER 
Re = %2 3;GENERAL REGISTER 
R3 = 3 3;GENERAL REGISTER 
R4 = %4 ;;GENERAL REGISTER 
R5 = %5 ;;GENERAL REGISTER 
R6 = %6 3;GENERAL REGISTER 
R7 = £7 ;;GENERAL REGISTER 
SP = %6 3;STACK POINTER 
PC = 27 3;PROGRAM COUNTER 
s*PRIORITY LEVEL schon 
PRO = 0 PRIORITY LEVEL 0 
PR1 = 4 PRIORITY LEVEL 1 
PR2 = 100 PRIORITY LEVEL 2 
PR3 = 140  :PRIORITY LEVEL 3 
PRS = 200 Hath LEVEL 4 
PRS = 240 RIORITY LEVEL 5 
PR6 = 300 PRIORITY LEVEL 6 
PR7 = 340 PRIORITY LEVEL 7 
3*''SWITCH REGISTER’ SWITCH DEFINITIONS 
Sw15 = 100000 
Swi4 = 40000 
Sw13 = 20000 
SwWwi2 = 10000 
Swil = 4000 
Sw10 = 2000 
Sw09 = 1000 
S$w08 = 400 
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| BASIC DEFINITIONS SEQ 0029 
000200 $w07 = 200 
000100 $Ww06 = 100 
000040 $w05 = 40 
000020 SW04 = 20 
000010 Sw03 = 10 
000004 Sw02 = 4 
000002 $w01 = 2 
000001 SwO =] 
001000 Sw9=Sw09 
000400 SW8=SW08 
000200 SW7=Sw07 
000100 SW6=SW06 
000040 SW5=Sw05 
000020 SW4=SW04 
000010 SwW3=Sw03 
000004 SwW2=Sw02 
000002 Sw1=Sw01 
000001 SwO=Sw00 
;*DATA BIT DEFINITIONS (B1T00 TO BIT15) 
100000 BIT15 = 100000 
040000 BI1T14 = 40000 
020000 B1T13 == 20000 
610000 BIT12 = 10000 
004000 BIT11 = 4000 
002000 BI1T10 = 2000 
001000 BIT09 = 1000 
000400 BIT08 = 400 
000200 BI1T07 = 200 
000100 BIT06 = 100 
000040 BIT05 = 40 
000020 B1T04 = 20 
000010 B1T03 = 10 
000004 BIT02 =4 
000002 BI1T01 =2 
000001 BIT00 = 1 
001000 B1T9=B1T09 
000400 B11T8=B1T08 
000200 B1T7=B1107 
000100 B11T6=B1T06 
000040 B1T5=B1T05 
000020 BIT4=81T04 
000010 B113=B1T03 
000004 BIT2=B1T02 
000002 B1T1=B1101 
000001 B1T0=B1T00 
;*BASIC ‘’CPU’’ TRAP VECTOR ta or ie 
000004 ERRVEC = 4 TIME OUT AND OTHER ERRORS 
000010 RESVEC = 10 : RE SERVED AND ILLEGAL INSTRUCTIONS 
000014 TBITVEC = 14 i BIT 
000014 TRIVEC = 14 7; TRACE TRA 
000014 BPTVEC = 14 ‘BREAKPOINT TRAP (BPT 
000020 IOTVEC = 20 3 ey ato TRAP (LOT) **SCOPE*® 
000U24 PWRVEC = 24 ;;POWER FAIL 
000030 EMTVEC = 30 oe a (EMT) **ERROR** 
000034 TRAPVEC = 34 "TRAP" 


CZRMVAO RMOS/3/2 EXT'D DR TST 


BASIC DEFINITIONS 


99 


ee a a a Os a ss a ss ss ss ss a os os —§ ss 


WAI II RPI PI NINN NIDI DID OO OS HS OOO COOOCOOCOCCO 
FWNM— OC OONO VEWN - 2 OOONO UE WN" OOCOnNOuUs WHO 


000060 
000064 
000240 


000100 
0 


0 
040000 


000001 


000010 
600040 


100000 


000001 


004000 
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TKVEC = 60 ;; TTY KEYBOARD VECTOR 
TPVEC = 64 7; TTY PRINTER VECTOR 
PIRQVEC = 240 ;;PROGRAM INTERRUPT REQUEST VECTOR 


~-SBTTL RH11/RH70 REGISTERS 
;CONTROL AND STATUS REGISTER 1 (RMCS1) 


IE = 100 4 pt ge ENABLE (BIT #6) 

RDY = 200 :READY (BIT #7) 

Al6 = 400 sHIGH ORDER BUS ADDRESS BIT (BIT #8) 
Al? = 1000 HIGH ORDER BUS ADDRESS BIT (BIT #9) 
PSEL = 2000 ;PORT SELECT (BIT #10) 

MCPE = 20000 retest + PARITY ERROR _ #13) 

TRE = 40000 ; TRANSFER ERROR (BIT #14 

:SC = 100000 :SPECIAL CONDITION (BIT "15) 


WORD COUNT REGISTER (RMWC) 
: (EACH BIT IS CALLED BY BIT NUMBER) 


BUS ADDRESS REGISTER (RMBA) 
: (EACH BIT 1S CALLED BY BIT NUMBER) 


CONTROL AND STATUS REGISTER 2 (RMCS2) 


US1 = 1 sUNIT SELECT (BIT #0) 

US2 =2 sUNIT SELECT aa #1) 

US4 = 4 sUNIT SELECT ¢ #2) 

BAI = 10 ;BUS ADDRESS INCREMENT ead (BIT #3) 
;PAT = 20 s:MASSBUS PARITY TEST (BIT 

CLR = 40 CLEAR (BIT #5) 

IR = 100 ; INPUT READY (BIT #6) 

OR = 200 OUTPUT READY (BIT #7) 

MPE = 400 sMASS BUS PARITY ERROR (BIT #8) 
MXF = 1000 s;MISSED TRANSFER wr (BIT #9) 
PGE = 2000 ;PROGRAM ERROR (BIT #10 

NEM = 4000 NON EXISTENT MEMORY (BIT #11) 
NED = 10000 sNON EXISTENT DRIVE (BIT #12) 
UPE = 20000 ;UNIBUS PARITY ERROR (BIT #13 
WCE = 40000 WRITE CHECK ERROR (BIT #14) 
DLT = 100000 :DATA LATE (BIT #15) 


:DATA BUFFER REGISTER (RMDB) 
(EACH BIT 1S CALLED BY BIT NUMBER) 


~SBTTL RM REGISTERS 
:CONTROL AND STATUS 1 REGISTER. (#00) 


GO = 1 :GO BIT (BIT #0) 

Fl =2 :FUNCTION CODE BIT #1 

F2 = 4 sFUNCTION CODE BIT #2 

F3 = 10 sFUNCTION CODE BIT #3 

F4 = 20 sFUNCTION CODE BIT #4 

F5 = 40 sFUNCTION CODE BIT #5 

DVA = 4000 DEVICE AVAILABLE (BIT #11) 


SEQ 0030 
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RM REGISTERS SEQ 0031 
13 DRIVE STATUS REGISTER (RMDS) (#01) 
137 000001 OM =] SOF FSET MODE 
138 000100 VV = 100 VOLUME VALID (BIT #6) 
139 000200 DRY = 200 sDRIVE READY (BIT #7) 
140 000400 DPR. = 400 ;DRIVE PRESENT (BIT #8) 
141 001000 PGM = 1000 ;PROGRAMABLE (BIT #9) 
142 002000 LST = 2000 ZLAST SECTOR TRANSFERRED (BIT #10) 
143 004000 WRL = 4000 sWRITE LOCK (BIT #11) 
144 010000 MOL = 10000 sMEDIUM ON-LINE (BIT #12) 
145 020000 PIP = 20000 sPOSITIONING OPERATION IN PROGRESS (BIT #13) 
146 040000 ERR = 40000 s;COMPOSITE ERROR (BIT #14) 
67 100000 ATA = 100000 sATTENTION ACTIVE (BIT #15) 
+4 TERROR REGISTER #01 (RMER1) (#02) 
151 000001 ILF = 1 ILLEGAL FUNCTION (BIT #0) 
152 000002 ILR = 2 sILLEGAL REGISTER (BIT #1) 
153 000004 RMR = 4 sREGISTER MODIFICATION REFUSED (BIT #2) 
154 000010 PAR = 10 sPARITY ERROR (BIT #3) 
155 000020 FER = 20 :FORMAT ERROR (BIT #4) 
156 000040 WCF = 40 sWRITE CLOCK FAIL (BIT #5) 
157 000100 ECH = 100 ECC HARD ERROR (BIT #6) 
158 000200 HCE = 200 ;HEADER COMPARE ERROR (BIT #7) 
159 000400 HCRC = 400 ;HEADER CRC ERROR (BIT #8) 
160 001000 0 = 1000 sADDRESS OVERFLOW ERROR (BIT #9) 
161 002000 JAE = 2000 INVALID ADDRESS ERROR (BIT #10) 
162 004000 WLE = 4000 sWRITE LOCK ERROR (BIT #11) 
163 010000 DTE = 10000 :DRIVE TIMING ERROR (BIT #12) 
164 020000 OP] = 20000 sOPERATION INCOMPLETE (BIT #13) 
165 040000 UNS = 40000 :DRIVE UNSAFE (BIT #14) 
166 100000 DCK = 100000 sDATA CHECK ERROR (BIT 15) 
168 :MAINTAINABILITY REGISTER #01 (RMMR1) (#03) - READ ONLY BITS 
170 000001 DMD = 1 :DIAGNOSTIC MODE 
171 000002 LSIT = 2 
172 LS zs 4 
173 000010 wD = 10 
174 000020 EECC = 20 
175 000040 we = 40 
176 000100 CONT = 100 
177 000200 PHA = 200 
178 000400 PDA = 400 
179 001000 ECRC = 1000 
180 002000 PLFS = 2000 
181 004000 ESRC = 4000 
182 010000 REX = 10000 
183 020000 EBL = 20000 
184 :R/G = 40000 
185 100000 Occ = 100000 
18 :MAINTAINABILITY REGISTER #01 (RMMR1) (#03) = WRITE ONLY BITS 
189 000001 DMD = 1 :DIAGNOSTIC MODE BIT 
190 000002 MSC s 2 
191 000004 My = 4 
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RM REGIST SEQ 0032 
192 000010 MwP = 10 
193 000020 DTG = 20 
194 000040 MS = 40 
195 000100 MDF = 100 
196 000200 MSER = 200 
197 000400 MOC = 400 
198 001000 MUR = 1000 
199 002000 MRD = 2000 
200 004000 MCLK = 4000 
201 010000 MSEN = 10000 
202 020000 DTO = 20000 
203 040000 OBEN = 40000 
gu 100000 OBCK = 100000 
206 ;ATTENTION SUMMARY PSEUDO-REGISTER (RMAS) (#04) 
208 000001 ATO = 1 DEVICE 0 (BIT #0) 
209 000002 AT1 = 2 DEVICE 1 (BIT #1) 
210 000004 AT2 = 4 DEVICE 2 (BIT #2) 
211 000010 AT3 = 10 DEVICE 3 (BIT #3) 
212 000020 ATG = 20 DEVICE 4 (BIT #4) 
213 000040 ATS = 40 DEVICE 5 (BIT #5) 
214 000100 AT6 = 100 DEVICE 6 (BIT #6) 
gl9 000200 AT7 = 200 DEVICE 7 (BIT #7) 
217 DESIRED SECTOR/TRACK ADDRESS REGISTER (RMDA) (#05) 
$i 7 (EACH BIT IS CALLED BY BIT NUMBER) 
220 sDRIVE TYPE REGISTER (RIIDT) (#06) 
222 000001 DT00 = 1 DRIVE TYPE NUMBER BIT 1 
223 000002 DT01 = 2 DRIVE TYPE NUMBER BIT 2 
224 000004 DT02 = 4 DRIVE TYPE NUMBER BIT 3 
225 000010 D103 = 10 DRIVE TYPE NUMBER BIT 4 
226 000020 DT04 = 20 DRIVE TYPE NUMBER BIT 5 
227 000040 DT05 = 40 DRIVE TYPE NUMBER BIT 6 
228 000100 DT06 = 100 DRIVE TYPE NUMBER BIT 7 
229 000200 D107 = 200 ;DRIVE TYPE NUMBER BIT 8 
230 000400 DT08 = 400 DRIVE TYPE NUMBER BIT 9 
231 004000 DRO = 4000 :DRIVE REQUEST REQUIRED (BIT #11) 
232 020000 MOH = 20000 ‘MOVING HEAD (BIT #13) 
233 040000 TAP = 40000 sTAPE DRIVE (BIT #14 
See 100000 NBA = 100000 ‘NOT BLOCK ADDRESSED. (BIT #15) 
$36 ;LOOK-AHEAD REGISTER (RMLA) (#07) 
238 
239 000100 Sco = 100 sSECTOR COUNT FIELD 0 (BIT #6) 
240 000200 $C = 200 sSECTOR COUNT FIELD 1 (BIT #7) 
241 000400 $C2 = 400 ;SECTOR COUNT FIELD 2 (BIT #8) 
242 3$C3 = 1000 sSECTOR COUNT FIELD 3 (BIT #9) 
7 784 = 2000 sSECTOR COUNT FIELD 4 (BIT #10) 
245 
66 7RM MAINTAINABILITY REGISTER #2 (RMMR2) (#10) 


248 ;RM ERROR REGISTER #02 (RMMR2) (#10) 


CZRMVAO A eat EXT'D DR TST 


RM REGISTER 


™Nm 
= 
oO 


MPPPORPOKPoNe fener 
ty Tw al al eal eal eal abo al ala 
OWONOULS WHO 


N 
_ 


Mrofrofronofnofnoens 
NNN NNN 
ONOUE wr 


279 


000200 


010000 


020000 
040000 
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sOFFSET REGISTER (RMOF) (#11) 


OFD = 200 : OFFSET DIRECTION (BIT #07) 

HC] = 2000 ;HEADER COMPARE INHIBIT (BIT #10) 

EC] = 4000 ERROR Roe tale + INHIBIT (BIT #11) 
FMT16 == 10000 ;FORMAT BIT (BIT #12) 


DESIRED CYLINDER ADDRESS (RMDC) (#12) 
; (EACH BIT IS CALLED BY BIT NUMBER) 


;CURRENT CYLINDER ADDRESS (RMHR) (#13) 
; (EACH BIT IS CALLED BY BIT NUMBER) 


SERIAL NUMBER REGISTER (RMSN) (#14) 
; (EACH IS CALLED BY BIT NUMBER) 
7RM ERROR REGISTER #02 (RMER2) (#15) 


OPE = 20000 OPERATOR PLUG ERROR (BIT #13) 
SK] = 40000 ;SEEK INCOMPLETE (BIT #15) 


sECC POSITION REGISTER (RMEC1) (#16) 
: (EACH BIT 1S CALLED BY BIT NUMBER) 


sECC PATTERN REGISTER (RMEC2) (#17) 
; (EACH BIT IS CALLED BY BIT NUMBER) 


se eke eeeedeee eee eee eee eee eee eh Kee Ke eee etek eeee 


;0P CODE DEFINITIONS 
NOO 


] 
| 
3 
5 
7 
1 
3 
5 
7 
1 
3 
1 
1 
3 
1 
3 
1 
3 
1 
3 
5 


eh ee ee ee ee ee ee a et ed eed ed ed ed eed ed 
PP PENNO OMNI IN eS SS OOCOCO TN 


un 

mm 

> 

~@ 

o 

= 
Hhnnhnhkhhnhh hhh h hah 


SELDRV 
OTHER EQUATES 
SCTRWC = -256. ;WORD COUNT FOR SECTOR 


SEQ 0033 


321 


CZRMVAO 7? shale EXT'D DR TST 
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RM REGISTE SEQ 0034 
307 
308 .SBTTL TRAP CATCHER 
000000 =0 
;*ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN. A.”'.#2,HALT" 
*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
aerie T*LOCATION Q CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
000174 000000 DISPREG: .WORD 0 ;;SOFTWARE DISPLAY REGISTER 
000176 000000 SWREG: WORD 0 SOFTWARE SWITCH REGISTER 
.SBTTL STARTING ADDRESS(ES) 
309 000200 000137 004570 JMP = @#STARTI ;;JUMP TO STARTING ADDRESS OF PROGRAM 
310 000204 000137 d04612 JMP = AWSTART2 ;SELECT OPERATING PARAMETERS 
312 000210 000137 004560 JMP = @#START3 ;SELECT RH/RM ADDRESSES 
314 000214 000137 d04602 JMP = AWSTART4 ;COMBINATION OF 204 AND 210 
316 .SBTTL ACT11 HOOKS 
SRA RARAEAEEEEEe eee eee eee etek eerteKeneeeeKeeeeteeeeeeee 
:HOOKS REQUIRED BY ACT11 
000220 $SVPC=. ;SAVE PC 
000046 .=46 
000046 21244 SENDAD ;:1)SET LOC.46 TO ADDRESS OF SENDAD IN .$EOP 
000052 020000 “WORD 20000 :2)SET LOC.52 TO 20000 
a 000220 »=$SVPC :; RESTORE P 
318 001100 .=1100 
319 -SBTTL APT PARAMETER BLOCK 
SERRA EAE EERE Re eRe Ke eee KK KeKeKKeKeKKKKKekKeeKeKeteKee ee 
Se LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
PURER EEE AAA KeK KKK etka hee eeeeees 
001100 $X=.  ;;SAVE CURRENT LOCATION 
000024 524 TSET POWER FAIL TO POINT TO START OF PROGRAM 
000024 000200 200 :3FOR APT START 
000044 hh {POINT TO APT INDIRECT ADDRESS PNTR. 
000044 001100 SAPTHDR :;POINT TO APT HEADER BLOCK 
001100 -=.$X  ::RESET LOCATION COUNTER 
SUR RARAReeeeeee ee eee eee eee eeneeeeneeeeKeeeteeeee eter eteee ee 
:SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
INTERFACE SPEC. 
001100 SAPTHD: 
001100 000000 SHIBTS: .WwORD 0 TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
001102 001234 SHBADR: .WORD SMAIL ADDRESS OF APT MAILBOX (BITS 0-15) 
601104 001604 $TSTM: .WORD 900. ;;RUN TIM OF LONGEST TEST 
001106 001604 SPASTM: .WORD 900. HIN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
001110 001604 SUNITM: ;WORD 900. DDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDED UNIT 
001112 000u30 WORD SETEND-SMAIL/2 csLENGTHMATLBOXSETABLE (WORDS) 
320 001114 TAB. XY= ;COMMON TAG STARTING ADDRESS 


J 3 
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APT PARAMETER BLOCK SEQ 0035 


520 
524 





CZRMVAO_RMOS/3/2 EXT'D 
COMMON TAGS 
0 

001114 

001114 
001114 000000 
001116 000 
001117 00 
001120 000000 
001122 000000 
001124 000000 
001126 000000 
001130 000 
001131 001 
001132 000000 
001134 000000 
001136 000000 
001140 000000 
001142 000000 
001144 000000 
001146 000000 
001150 000 
001151 000 
001152 000000 
001154 177570 
001156 177570 
001160 177560 
001162 177562 
001164 177564 
001166 177566 
001170 000 
001171 002 
001172 012 
001173 000 
001174 000000 
001176 000000 
001200 000000 
001202 000000 
001204 000000 
001206 000000 
001210 000000 
001212 0000 
001214 000000 
001216 000000 
001220 000000 
001222 000000 
001224 207 
001230 077 
001231 015 
001232 012 


DR TST 
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-SBTTL COMMON TAGS 


SEQ 0036 


FARRAR RARER EEE AEE EATER TERE AAEARHAEKEEAAATAAKTAAAARTATATeeee 


:*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 


>*USED IN THE PROGRAM. 
-=TAB.XY 


SAUTOB: 


wv 
a 
= 
> 
So 
2 
.* 

<£ 

So OOO SO SO OOS “SS SSSSSO 


—=£ 
= 


DISP 


™Nm 


x 

m 

o 

m™m 

o 
SOSOSOSDOSDO CO—NO 


<207><377><377> 
/7/ 


:-START OF 


:; CONTAINS 
;; CONTAINS 
;; CONTAINS 


7: CONTAINS 
3: CONTAINS 
3; CONTAINS 
3; CONTAINS 
3; CONTAINS 


COMMON TAGS 


THE TEST NUMBER 

ERROR FLAG 

SUBTEST ITERATION COUNT 
SCOPE LOOP ADDRESS 
SCOPE RETURN FOR ERRORS 
Hj ta oy a 


ER TEST 
PC OF LAST ERROR INSTRUCTION 
ADDRESS OF ‘GOOD' DATA 
ADDRESS OF ‘BAD’ DATA 

"GOOD" DATA 


::CONTAINS “BAD DATA 

;RESERVED--NOT TO BE USED 
;;AUTOMATIC MODE INDICATOR 
:; INTERRUPT MODE INDICATOR 


; ADDRESS OF SWITCH REGISTER 
:;ADDRESS OF DISPLAY REGISTER 
:3 STATUS 


oa U E 

:2TTY PRINTER STATUS REG. ADDRESS 

:: TTY PRINTER BUFFER REG. ADDRESS 
:sCONTAINS NULL CHARACTER FOR FILLS 

7: CONTAINS # OF FILLER CHARACTERS REQUIRED 
ze INSERT FILL CHARS. AFTER A “' FEED" 
33''TERMINAL AVAILABLE"’ 1 (B1T<07>=0=YES) 


7:CONTAINS ((S$REGAD)+0) 
szCONTAINS ((SREGAD) +2) 


s CONTAINS (($REGAD)+12) 
;;USER DEFINED 


E 
7:MAX. NUMBER OF ITERATIONS 
7;ESCAPE ON ERROR ADDRESS 
:;CODE FOR BELL 
; QUESTION MARK 
;: CARRIAGE RETURN 
;eLINE FEED 


seeker keekeeeeeeeeeeeeeeeeee eee eee Kee Kee eee eee 


~SBTTL APT MAILBOX-ETABLE 


CZRMVAO RMO5S/3/2 EXT'D 
APT MAILBOX-ETABLE 


001234 


001262 


001264 
001265 


001266 


000000 


000000 


000 
000 


000000 


000000 


DR TST 


ce 
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PARA RAAAASLAALZAASALESLLELELALEL ESE EEE E EERE REE REPEC REESE 


* EVEN 


Se Se te Gee ee te eee 
eeeeBBeeveene 
—> 
= 
“ 
— 


AMSGTY 


ACPUOP 


AMAMS1 
AMTYP1 


AMADR1 
AMAMS2 


3;APT MAILBOX 

3:MESSAGE TYPE CODE 

7;FATAL ERROR NUMBER 
T NUMBER 


;;MESSAGE LENGTH 

33 APT etd heey TABLE 
3 ENVIRONMENT BYTE 

; ENVIRONMENT MODE BITS 
: 3 APT SWITCH REGISTER 


TYPE 
11/04=01,11/05= nas Fa 03,11/40=04,11/45=05 


11/70=06.PDQ=07,0=10 


BIT 10=REAL TIME CLOCK 
BIT Q=FLOATING POINT PROCESSOR 
BIT 8=MEMORY MANAGEMENT 
; HIGH ADDRESS,M.S. BYTE 
7:MEM. TYPE,BL 
MEM.TYPE BYTE == (HIGH BYTE) 
900 NS ORE=00 
200 NSEC BIPOLAR=002 
00 oa 


;:HIGH ADDRESS,B 
MEM.LAST 


s HIGH sy ef 
;;MEM. TYPE BLK 
:>MEM.LAST ADDRESS ,BLK#2 
:;HIGH ADDRESS ,M.S.BYTE 
MEM. TYPE ,BLKA3 
tr LAST Tt et BLK#3 
at eee = tet S.BYTE 
M TYPE. BLK 
REM LAST ADDRESS ,BLKAG 
:: INTERRUPT VECTOR#1,BUS PRIORITY#1 
3; INTERRUPT VECTOR#2BUS PRIORITY#2 
;;BASE ADDRESS OF EQUIPMENT UNDER TEST 
;;DEVICE MAP 


ADDR. 3 ee -THIS WORD AND LOW OF ‘TYPE’ ABOVE 


SEQ 0037 
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, USER DEFINED TAGS SEQ 0038 
0 -SBTTL USER DEFINED TAGS 

001314 000000 C.SWR: .WORD 0 sCONTROL SWITCHES 

001316 000000 SAVCSW: .WORD 0 i ; PREVIOUS, hdl OF 'C.SWR' 

pot ass 000000 CNTRLC: .WORD 0 ;CONTROL ‘'C’’ FLAG 

001322 000000 BUSADR 0 :GET ADDRESSES” FROM THE TTY em _ NO, -1=YES) 

001324 000000 LPTAVL: .WORD 0 LPT AVAILABLE STATUS (O=NO, 1 

001326 000000 DRVSEL: .WORD 0 :DRIVES SELECTED FOR TEST 

01330 176777 000003 TSTNMS: .WORD 176777,3 ;DEFAULT_1S RUN TESTS 0-10 & 12-21 
001334 000000 000000 OPNFLG: .WORD 0,0 sMODIFY TEST PARAMETER FLAGS 
001340 000000 CLKSTA: .WORD 0 ie cleawit-43 (O=NO CLOCK,+1=KW11-P, 
342 000020 TICKMS: .WORD 16. 316 MILLISECONDS PER CLOCK TICK 

001344 040432 TICKUS: .WORD 16666. 16666 MIRCOSECONDS PER CLOCK TICK 

001346 000000 BYPASS: .WORD 0 

001350 000000 CHKDRV 0 sDRIVE UNDER TEST 

001352 000000 DRVMSK: .WORD 0 :DRIVE MASK BIT 

001354 000000 SVSTAT: .WORD 0 ; STATUS/ERROR yoy te IS 
;SAVED HERE fig N ERROR 

001356 000000 CYL.RD: .WORD 0 CYLINDER READ 

001360 000000 TRK.RD: .WORD 0 : TRACK READ 

001362 000000 SEC.RD: .WORD 0 sSECTOR READ 

001364 00 CYL.DS: .WORD 0 ;CYLINDER DESIRED 

001366 000000 SEC.DS: .WORD 0 syecten DESIRED 

001370 000000 TRK.D.: .WORD 0 RACK DESIRED 

001372 000000 LSTRK: .WORD 0 ‘CONTAINS THE LAST TRACK OF THE UNIT UNDER 
;TEST. RMO2/3 = 4., RMOS = 18. 

pote 000000 TIM.UP: .WORD 0 :MINIMUM TIME 

001376 000000 «WORD 0 ;NUMBER OF COUNTS BELOW MIN. LIMIT 

001400 000000 WORD 0 ;MAXIMUM TIME 

001402 000000 ~WORD 0 :NUMBER OF soe ABOVE MAX. LIMIT 

001404 000000 000000 WORD 0,0 TOTAL TIME OF ALL SEEKS 

001410 000000 WORD 0 ;NUMBER OF SEEKS. PERFORMED 

001412 000000 TIM.DN: .WORD 0 :MINIMUM TIME 

001414 000000 -WORD 0 ; NUMBER * COUNTS BELOW MIN. LIMIT 

001416 0000 -WORD 0 sMAXIMUM TIME 

001420 000000 -WORD 0 s;NUMBER OF COUNTS ABOVE MAX. LIMIT 

001422 000000 000000 -WORD 0,0 ;TOTAL TIME OF ALL SEEKS 

001426 000000 -WORD 0 NUMBER OF SEEKS + hm 

001430 TIM.PT: .WORD 0 :POINTS TO TABLE OF TIMES 

001432 000000 WCEFLG: .WORD 0 sFATAL WRITE CHECK ERROR FLAG 

001434 000000 STALLO: .WORD 0 : VARIABLE STALL 

001436 000000 000000 SVADR: .WORD 0,0 SAVE DISK ADDRESS 

001442 SEKTMR: .WORD 0 ;SEEK TIMER 

001444 000000 SEKCNT: .WORD 0 SEEK COUNTER 

001446 000000 DELTA: .WORD 0 ; TESTING — oY SERVO SETTLE DOWN TEST 

001450 160000 TRCKWC: =<256.#32.> WORD COUNT FOR A FULL TRACK IN 16 BIT MODE 

001452 000012 STALL1: .WORD 10. 310 MILLISECONDS STALL 

001454 000012 STALL2: .WORD 10, 310 eee eens STALL 

001456 011610 STALL3: .WORD 5000. 75 SEC STA 

001460 000031 MXSTAL: .WORD 25. i MAX. INCREMENT ING STALL ALLOWED IN TEST 4 

001462 144 R.CT: .BYTE 100. :NUMBER OF ERRORS ALLOWED _ tests 16 = 21 
:BEF ORE GOING TO THE NEXT TEST 

001463 000 BYTE 0 RVED 

001464 000v00 BASFLG: .WORD 0 FLAG FOR DETECTING BAD SECTOR 

001466 000000 XXDP: .WORD 0 :THE LOW BYTE CONTAINS THE DRIVE NUMBER FROM WHICH 


:THE PROGRAM WAS LOADED. THE HIGH BYTE CONTAINS THE 


CZRMVAO _RMOS/3/2 EXT'D 
USER DEFINED TAGS 


MVR] ~ 


000200 


046261 
003244 
046261 


003131 
003255 


DR TST 


000240 
000106 


000102 
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;ADDRESSES AND V 
RH.ADR: .WORD 


;B1T TABLE 
BITS:  .WORD 


~SBTTL TIMING L 


T7A: » WORD 
RD 


oo 


~m 


E 
1 
2 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


SAN NN NONNNOUNNIO 
NNN NNOPRNIN FE EO 
ViUIwVMWMuE WWVR = WO 
—— OO Lea LF LS NwOD 
HEAL OOLNOCOLOM 


bosdecdesBesdesdesDesdesDosDockssDosdeslesTosEeslosTostostostesEeelesde +] 
— Os Ot Ft Oe Ot Pt Ot Ot Ot Ot bt Ot Ot Oe bs Ot Ot Ot tt 
OoDOOoCoCOo°C°o Ke eS SS COCO COCCCCO 
NAW WM OWE WN HOO ONOUFWN—O 


IMITS 


ROTATE 
0 
1634. 
1700. 
ROTATE 
0 


1625. 
1709. * 


:'XXDP" DEVICE CODE FOR THE RM05/3/2. 


;RH/RM UNIBUS ADDRESS 

;VECTOR ADDRESS AND PRIORITY 
sKW11-P VECTOR ADDRESS 

:KW11-P CONTROL AND STATUS REG. 
;KW11-P COUNT SET BUFFER 
;KWil-P COUNTER 

sKWIl-L VECTOR ADDRESS 

sKW1l-L STATUS REGISTER 

sTTY PRINTER STATUS 


ROTATIONAL TEST TABLES FOR RMO5/3 DRIVES 
;60HZ TABL 


:LO LIMIT (16.67MS = 2%) 
cH] LIMIT (16.67MS + 2%) 
;LO LIMIT (16.67MS - 2.5%) 
sHI LIMIT (16.67MS + 2.5%) 


SEQ 0039 


1 
mel 


RMVAO rt Sa EXT'D DR TST 
MING LIM 


001626 046261 
001630 000000 
001632 004622 
001634 004766 


001636 046261 
001644 005003 
001646 046312 


001654 001274 
001656 046357 
00 


001674 013104 


001676 646662 
001700 003142 
001702 003244 


001704 046662 
001706 003131 
001710 003255 


001712 046737 
001714 004622 
001716 004766 
001720 046737 
001722 004605 
001724 005003 
001726 047012 
001730 000000 
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SEQ 0040 
;ROTATIONAL TEST TABLES FOR RMO2 DRIVES 
-60HZ TABLE 
17A1: WORD ROTATE 
.WORD 0 
.WORD 2450. :LO LIMIT (25.00MS = 2%) 
.WORD 2550. sHI LIMIT (25.00MS + 2%) 
>SOHZ TABLE 
17B1:  .WORD ROTATE 
.WORD 0 
-WORD 2437. :LO LIMIT (25. 00MS - 2.5%) 
«WORD 2563. tH] LIMIT (25.00MS + 2.5%) 
;SEEK TEST TABLES 
110: WORD  ONECYL : FORWARD 
“WORD REV s REVERSE 
.WORD 0 :NO LO LIMIT 
.WORD 700. tHI CIMIT (7MS) 
111: .WORD ACCESS FORWARD 
.WORD REV :REVERSE 
«WORD 0 7NO LO L 
.WORD 3200. :HI teeiT (32MS) 
112: .WORD MXSEEK TORWARD 
.WORD REV s REVERSE 
.WORD 0 :NO LO LIMIT 
~ WORD 5700. sH] LIMIT (57MS) 


SPECS. MESSAGE TABLES FOR ROTATIONAL AND TIMING TESTS 
ROTATIONAL MESSAGE AND LO/HI LIMITS FOR RMO5/3 DRIVES 


>60HZ TABLE 
SP7A:  .WORD WSG7xA 
“WORD 1634. ;LO LIMIT (16.67MS = 2%) 
“WORD 1700. cH] LIMIT (16.67MS + 2%) 
;50HZ TABLE 
SP7B: .WORD MSG7XA 
-WORD 1625. 3LO LIMIT (16.67MS = 2.5%) 
WORD 1709. sHI LIMIT (16.67MS + 2.5%) 


aT tt MESSAGE AND LO/HI LIMITS FOR RMO2 DRIVES 

:60HZ TABLF 

SP7A1: .WORD MSG7XB 
WORD 2450 


. 3LO0 LIMIT (25.00MS - 2%) 
“WORD 2550. sH] LIMIT (25.00MS + 2%) 
:50HZ TABLE 
SP7B1: .WORD MSG7XB 
WORD 2437. 3LO LIMIT (25.00MS - 2.5%) 
WORD 2563. 3H] LIMIT (25.00MS + 2.5%) 
TIMING TESTS MESSAGES AND LO/HI LIMITS 
SP10: -WORD MSG10X 


-WORD 0 ;NO LO LIMIT 
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TIMING LIMIT SEQ 0041 
001732 001274 -WORD 700. sHI LIMIT (7MS) 
001734 047054 SP11: WORD MSG11X 
001736 000000 -WORD Q :NO LO LIMIT 
001740 006200 -WORD 3200. sHI LIMIT (32MS) 
001742 047110 SP12:  .WORD MSG12x 
001744 000000 -WORD 0 :NO LO LIMIT 
001746 013104 -WORD 5700. 3H] LIMIT (57MS) 
; STATUS/ERROR MESSAGE POINTER TABLE 
001750 050012 STATBL: .WORD MSGB14 OFFLINE OR UNSAFE DRIVE REQUESTED 
001752 050054 -WORD MSGB13 UNLOAD DRIVE ae ED 
001754 050105 WORD MSGB12 ;PERSISTENT UNSAFE 
001756 050127 -WORD MSGB11 PARITY ERROR OCCURRED 
001760 050155 -WORD MSGB10 ;FATAL PARITY ERROR 
001762 050200 ~-WORD MSGBO9 ;SOFTWARE TIMEOUT ON THIS DRIVE 
001764 050237 -WORD MSGBO8 :SOFTWARE TIMEOUT ON ANOTHER thy 
001766 050301 -WORD MSGB06 sERROR OCCURRED DURING 1/0 OPERATION 
001770 050345 ~-WORD MSGBO5 ;ERROR OCCURRED DURING NON-1/0 OPERATION 
001772 050415 -WORD MSGB04 UNSAFE OCCURRED 
001774 050435 -WORD MSGBO3 sAUTOMATIC RECALIBRATE SEQUENCE OCCURRED 
001776 050505 «WORD MSGBO2 :DRIVE HAS NOT RESPONDED TO PORT REQUEST 


002000 050555 -WORD MSGBO1 DRIVE HAS BECOME NONEXISTENT 


CZRMVAO RMOS/3/2 EXT'D DR TST 
ERROR POINTER TABLE 


0 


002002 


002002 047152 
002004 050613 
002006 052170 
002010 052622 


002012 047216 


002020 052626 


UE WO OONO VE WN $0 OONO UV FWWN —OOOnC UI 


bt pet te tet epee ph th the thy the Nae ees ee we we SS 


002022 047254 

002024 050715 

002026 052212 

: 002050 052632 
8 
9 
40 
4) 
42 
43 

44 002032 047311 

45 002034 050752 
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-SBTTL ERROR POINTER TABLE 


:*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN toma 

*THE INFORMATION 1S OBTAINED BY USING THE INDEX NUMBER FOUND 

s SLOCATION SITEMB. et NUMBER INDICATES WHICH ITEM IN THE TABLE. PERTINENT. 
*NOTE1: 1— SITEMB 1S O THE ONLY PERTINENT DATA IS (SERR 


« eNOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EAPLAINED AS FOLLOWS: 
;* EM + sPOINTS TO THE oy MESSAGE 
;* DH 7:POINTS TO THE DATA HEADER 
7* DT :;POINTS TO THE DATA 
7* DF 3;;POINTS TO THE DATA FORMAT 
SERRTB: 
;*ERROR 1 
3* RH/RM INTERRUPT OCCURED (RMAS = 0) 
5* ERR PC RMAS 
3° SERRPC $REG3 
EM] 
DH1 
DT1 
DF 1 
s*ERROR 2 
3% UNEXPECTED « eae to OCCURRED 
7° ERR PC DRIVE MAS RMDS RMER1 RMMR2 RMER2 
se SERRPC $REG1 BREGS RMERRS RMERRS*+2 RMERRS*+4 RMERRS+6 
EM2 
DH2 
DT2 
DF2 
s*ERROR 3 


“hed MASSBUS PARITY ERROR (MCPE=1) 
hel TEST ERR PC ADDRESS DATA 
3° $TMPO SERRPC RD.ADR RD.WRD 


:*ERROR 4 


7@ MASSBUS PARITY ERROR (PAR=1) 
7° TEST ERR ADDRESS GDDATA BDDATA 
se STMPO SERRPC WRT.ADR WRT.WD RD.WRD 


EM4 
DH4 


wv 
oO 


SEQ 0042 


CZRMVAO RMOS/3/2 EXT'D DR TST 


ERROR POINTER TABLE 


46 002036 
47 002040 


8 002050 


62 002052 
65 002060 
66 

9 00 

70 002064 


71 002066 
72 002070 


002072 


002100 


002102 


002110 


052 


22 
05265 


2 
6 


047345 
0 


052626 


000000 


000000 


000000 


000000 


047447 


052646 
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DT4 

DFS 
s*ERROR 5 
;* ADDRESS PLUG CHANGE BIT SET 
s* ERR PC DRIVE RMAS RMDS RMER1 
3* SERRPC $REG1 SREGS RMERRS RMERRS+2 
a EMS > om 

DH2 

DT2 

DF2 
:*ERROR 6 == NOT USED 

0 

0 

0 

0 
;*ERROR 7 == NOT USED 

0 

0 

0 

0 
;*ERROR 10 


3* RH/RM FAILED TO RESPOND TO ADDRESSING 
hed RMCS1 = ERR PC 
had RH.ADR SERRPC 


:*ERROR 11 
hed the | ws 1S NOT ONLINE 


‘9 DRIVE 
ad SREG2 SERRPC 


;*ERROR 12 


aaa HEADER DATA 
TEST ERR PC TST PC DRIVE CYLNDR 


RMMR2 RMER2 
RMERRS+4 RMERRS*+6 


TRACK SECTOR 
TRK.DS SEC.DS 


GDCYL GDTRK GDSCTR BDCYL BDITRK BDSCIR 


® 

;* $ 

:®  $TMPO $ERRPC $REGO CHKDRV CYL.DS 
:* 

ie CYL.DS TRK.DS SEC.DS CYL.RD TRK. 


RD SEC.RD 


SEQ 0043 


CZRMVAO RMO5/3/2 EXT'D DR TST 


ERROR POINTER TABLE 


_ 
oO 
Ww 


002122 


002130 


002132 


002140 


002142 


002150 


002152 


002160 


cat ed cae ct end nt td cae a ce cee ed en ce a en ce tt ch ce en ed ce a ee ee ee ee ce ee ee et ee cl i ee ee el en en ct en ee el et ee ee eh eet es en eh ee ee eed 
DOONO UNE WO OOD NOUEWWN $0 OO WOVE WN OO OOO UEWNR “OOD UFWN—OOOnOuUs 


052672 


052672 
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* CYLNDR, TRACK, AND SECTOR ARE DECIMAL 


EM12 
DH12 
DT12 
DF12 
s*ERROR 13 
7* DATA ay FAILURE 
5* TEST ERR PC TST PC DRIVE CYLNDR TRACK 
7* $STMPO SERRPC $REGO CHKDRV CYL.DS TRK.DS 
Mh GDDAT BODAT WROCNT GDADR BDADR 
Pid SGDDAT S$BDDAT S$REG4 $GDADR $BDADR 
7* CYLNDR, TRACK, SECTOR, AND WRDCNT ARE DECIMAL 
—EM13 
DH12 
D113 
DF13 
stERROR 14 == FOLLOWS #13 
3* $GDDAT S$BDDAT $REG4 $GDADR $BDADR 
0 
0 
DT13A 
DF14 
s*ERROR 15 
7* DATA COMPARE FAILURE 
thd TEST ERR PC TST PC DRIVE CYLNDR' TRACK 
3* STMPO SERRPC $REGO CHKDRV CYL.DS TRK.DS 
7” GDDAT BDDAT WROCNT GDADR BDADR 
7* SGDDAT S$BDDAT $REG4 S$GDADR $BDADR 
3* CYLNDR, TRACK, SECTOR, AND WRDCNT ARE DECIMAL 
—EM13 
DH12 
D113 
DF13 


;*ERROR 16 == FOLLOWS #15 
:* S$GDDAT SBDDAT S$REG4 $GDADR S$8DADR 
0 
0 
DT13A 
DF14 
;*ERROR 17 


Had DISK ERROR IN TIMING TEST 
s@ TEST ERR PC DRIVE RMCS1 RMDS RMER | 


SECTOR 
SEC.DS 


SECTOR 
SEC.DS 


RMMR2 


RMER2 


SEQ 0044 
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ERROR POINTER TABLE SEQ 0045 
160 se STMPO =©SERRPC CHKDRV RM.REG RM.REG+12 RM.REG+14 RM.REG+40 RM.REG*42 
162 002162 047556 EM17 
163 002164 051273 DH17 
164 002166 052346 D117 
be 002170 052676 DF17 
+4 s*ERROR 20 
169 3 CLOCK (KW11-P) OVERFLOW IN TIMING TEST 
170 ;* TEST ERR PC DRIVE RMCS1 = RMDS RMER1 RMMR2 RMER2 
44 :* STMPG = SERRPC CHKDRV RM.REG RM.REG+12 RM.REG+14 RM.REG+40 RM.REG*42 
173 002172 047610 EM20 
174 002174 051273 DH17 
175 002176 052346 D117 
A 002200 052676 DF17 
178 *ERROR 21 
179 
180 ;* DATA COMPARE FAILURE 
181 :* TEST ERR PC TST PC DRIVE CYLNDR TRACK 
182 8 $STMPO SERRPC $REGO CHKDRV CYL.DS TRK.DS 
183 7* GDDAT BDDAT WRDCNT SECTOR 
184 :* $REG1 $BDDAT S$REG4  $REG1 
+ + 7* CYLINDR, TRACK, WRDOCNT, AND SECTOR ARE DECIMAL 
187 002202 047531 —EM13 
188 002204 051370 DH21 
189 002206 052366 DT21 
190 002210 052702 DF 21 
Hb s*ERROR 22--FOLLOWS #21 
04 pe $REG] $BDDAT $REG4  $REGI 
196 002212 000000 0 
197 002214 009000 0 
198 002216 052402 DT21A 
4 002220 052712 DF 22 
201 :*ERROR 23 
202 
203 i* DISK ERROR DURING SEEK 
204 3 TEST ERR PC DRIVE CYLNDR RMCS1  RMCS2 RMDS 
205 i $TMPO SERRPC CHKDRV CYL.DS RM.REG RM.REG+10 RM.REG+12 
206 if RMER1 RMMR2 RMER2 RMDC RMHR 
07 38 RM.REG+14 RM.REG+40 RM.REG+42 RM.REG+34 RM.REG+ 36 
209 002222 047657 EM23 
210 002224 051505 DH23 
211 002226 052412 D123 
sé 2230 052716 DF 23 
ei s*ERROR 24 
216 se SEEK NOT COMPLETE WITHIN 120 MS 
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ERROR POINTER TABLE SEQ 0046 
217 7° TEST ERR PC ORIVE CYLNDR RMCS1 RMCS2 RMD 
218 ;* iad Tr CHKDRV CYL.DS RM.REG RM.REG+10 RM. REG 12 
219 3? RMER1 RMMRZ RMER2 RMDC RMHR 
$0 3* RM.REG+14 RM.REG*+40 RM.REG*+42 RM.REG+34 RM.REG+36 
222 002232 047706 EM24 
223 002234 051505 DH23 
224 002236 052412 DT23 
iH 002240 052716 DF 23 
227 SERRA AREAAE HA KAE TATE TEAK eee Kee Kee KAKA ATK KATA eRe e TATA 
228 3* ERRORS 23-40 NOT USED 
4 3* ERRORS 41-46 WILL HAVE AN EM THAT 
231 3* VARIES cok thet ON THE ERROR, IT WILL BE IN THE FORM: 
232 3* RH/RM ERROR (MESSAGE) 
233 3* WHERE MESSAGE WILL BE ONE OR MORE o THE FOLLOWING: 
234 :* 1) OFFLINE OR UNSAFE othe REQUESTED 
235 3* d) UNLOADED DRIVE 1 VESTED 
236 :* 3) PERSISTENT UNSAFE 
237 :* 4) PARITY ERROR OCCURRED 
238 :* 5) FATAL PARITY ERROR 
239 :* 6) SOFTWARE TIMEOUT O}. THIS DRIVE 
240 :* 7) SOFTWARE TIMEOUT ON ANOTHER DRIVE 
241 :* 8) ERROR OCCURRED DURING 1/0 OPERATION 
242 :* 9) ERROR OCCURRED DURING NON-1/0 OPERATION 
243 7* 10) UNSAFE OCCURRED 
244 3* 11) AUTOMATIC RECALIBRATE SEQUENCE OCCURRED 
245 PL AAA eee eeeeee eee ee eee eee eee ARATE eee eRe 
246 
247 002242 1TEM41 
248 
249 ;*ERROR 41 
250 
251 2* RH/RM ERROR (MESSAGE) 
252 o* TEST ERR PC TST PC DRIVE 
$27 2 @ STMPO SERRPC $REGO CHKDRV 
255 002242 047746 —EM41 
256 002244 051637 DH41 
257 002246 052442 D141 
$38 002250 052726 DF41 
4 ;*ERROR 42 
262 ;* RH/RM ERROR (MESSAGE) 
263 :* TEST ERR PC TST PC DRIVE RMCS1 RMCS2 RMDS 
ie s@ STMPO SERRPC $REGO CHKDRV RM.REG RM.REG+10 RM.REG+12 
266 002252 047746 EM41 
267 002254 051675 DH42 
268 002256 052452 DT42 
$62 69 002260 052732 DF42 
zi s*ERROR 43 
273 it RH/RM ERROR (MESSAGE) 
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ERROR POINTER TABLE SEQ 0047 


274 ad TEST ERR PC TST PC DRIVE RMCS1 RMCS2~ RMD 

275 se STMPO SERRPC $REGO CHEDRY RM.REG RM.REG+10 Rh. REG+12 

276 i* RMER1 RMMR2 RMER 

st ;* RM.REG+14 RM.REG*+40 RM.REG+42 

279 002262 047746 —EM41 

280 002264 051675 DH42 

281 002266 052470 D143 

se 002270 052736 DF43 

284 stERROR 44 

285 

286 ye RH/RM ERROR (MESSAGE) 

287 7° TEST ERR PC TST PC DRIVE CYLNDR TRACK SECTOR 

288 38 STMPO SERRPC $REGO CHKDRV CYL. Ds ™. “bs SEC. 0s 

289 38 RMCS1 RMCS2 RMDS RMHR MDC 

290 :* RM.REG RM. REG#10 RM. REGS 12 RM. REG#36 RM. REG? 3S RM.REG+06 
291 :* RMER1 RMMR2 RMER2 

292 38 RM.REG+14 RM.REG+40 RM.REG+42 

344 se CYLNDR, TRACK, AND SECTOR ARE DECIMAL 

295 002272 047746 EM41 

296 002274 051057 DH12 

297 002276 052514 DT44 

$e 002300 052746 DF44 

5} *ERROR 45 

302 y* RH/RM ERROR (MESSAGE) 

303 :* TEST ERR PC TST PC DRIVE CYLNDR TRACK SECTOR 

304 :* STMPO SERRPC $REGO CHKDRV CYL.DS TRK.DS SEC.DS 

305 ie RMCS1 RMCS2 RMDS RMHR RMDC RMDA 

306 :* RM.REG RM.REG+10 RM. oe RM.REG*+36 RM.REG*+34 RM.REG+06 
307 i* RMER1 RMMR2 ER2 RMWC RMBA DB 
308 ;* RM.REG+14 RM.REG+40 = RM. PREG S42 RM.REG+2 RM.REG+4 RM.REG+22 
04 ye CYLNDR, TRACK, AND SECTOR ARE DECIMAL 

311 002302 047746 EM41 

312 002304 051057 DH12 

313 002306 052554 D145 

sie 002310 052762 DF45 

318 stERROR 46 

318 ie FATAL write CHECK gf RhOR (MESSAGE) 

319 30 TEST ERR PC PC DRIVE CYLNDR TRACK SECTOR 

320 8 STMPO $ERRPC $REGO CHKDRV CYL.DS TRK.DS SEC. DS 

321 if RMCS1 RMCS2 S RMHR RMDC RMDA 

322 38 RM.REG RM.REG+10 mn. REG+12 RM, REG? 36 RM.REG+34 RM.REG+06 
323 :* RMER1 RMMR2 RMER2 RMWC RMBA RMDB 
324 38 RM.REG+14 RM.REG+40 RM.REG+42 RM.REG+2 RM.REG+4 RM.REG+22 
TH :* CYLNDR, TRACK, AND SECTOR ARE DECIMAL 

338 002312 047762 EM46 

328 002314 05157 DH12 

329 002316 052554 D145 

330 002320 052762 DF4S 
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SEQ 0048 
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TEST PARAMETER POINTERS AND TABLES SEQ 0049 


} -SBTTL TEST PARAMETER POINTERS AND TABLES 
3 5 COMMON STORAGE FOR TEST PARAMETERS 
4 002322 000000 PRM -WORD 0 THIS WORD TELLS WHICH OF THE 
5 sFOLLOWING PARAMETERS ARE TO BE USED 
6 002324 000000 RPT: WORD 0 ‘REPEAT COUNTS FOR ALL TESTS 
7 002326 000000 FC: «WORD 0 ‘FIRST CYLINDER 
8 002330 000000 LC: «WORD 0 ;LAST CYLINDER 
9 002332 00000 IC: «WORD 0 STNCRERENT CYLINDER 
10 002334 0000 FT: «WORD 0 SFIRST TRACK 
11 002336 000000 LT: WORD 0 sLAST T RACK 
12 002340 000000 IT: -WORD 0O ; INCREMENT TRACK 
13 002342 0000 FS: «WORD 0 ‘FIRST SECTOR 
14 002344 000000 LS: «WORD 0 sLAST SECTOR 
15 002346 000000 PAT: -WORD 0 ;PATTERN CODE 
16 002350 000000 000000 000000 -WORD 0,0,0 FILLER WORDS FOR COMMON TABLE USED BY THE 
i? :"OPNTST' ROUTINE. 
19 002356 000000 NC1: «WORD 0 NEW CYLINDER ADDRESS 
44 002360 000000 NC2: «WORD 0 NEW CYLINDER ADDRESS 
22 TABLE OF PARAMETER POINTERS 
23 002362 003116 .WOR 
26 002364 003132 -WORD PRM 
003160 -WORD PRM2 
002370 003200 -WORD PRM3 
002372 003220 «WORD PRM4 
002374 003240 «WORD PRMS 
002376 003260 -WORD PRM6 
002400 003300 -WORD PRM7 
002402 003320 -WORD PRMIO 
04 003336 -WORD PRM11 
003356 «WORD PRM12 
002410 003372 -WORD PRM13 
002412 003402 -WORD PRM14 
002414 003412 -WORD PRM15 
002416 003422 -WORD PRM16 
420 003434 «WORD PRMI7 
003444 WORD PRM20 
002424 00 -WORD PRM21 
002426 003510 «WORD PRM22 
gr 002430 000000 -WORD O ; TERMINATOR 
29 ; TABLE OF PARAMETER UPPER LIMITS 
30 002432 032767 PRMLMT: .WORD 32767 oe 
31 002434 001466 «WORD 822. ey 
32 002436 001466 WORD 822. “a 
33 002440 001466 WORD 822. one | 
34 002442 000004 WORD 4 yor 
35 002444 04 WORD 4 se 
36 002446 000004 WORD 4 ee) el 
37 002450 000022 WORD 18. 8 fee 
38 002452 000022 WORD 18. eS pes 
39 002454 000022 WORD 18. Se 
40 002456 000u37 WORD 31. "7s" 
41 002460 000037 -WORD 31. et 
42 002462 177777 «WORD 177777 :'PAT 
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TEST PARAMETER POINTERS AND TABLES SEQ 0050 

43 

44 s TABLE OF PARAMETER MESSAGE POINTERS 

45 002464 045626 PRMMSG: .WORD MSG.R 

46 002466 045630 » WORD MSG.FC 

47 0024670 045633 "WORD MSG.LC 

48 002472 045636 “WORD MSG.1C 

49 002474 045641 ~ WORD MSG.FT 

50 002476 045644 “WORD = MSG.LT 

51 002500 045647 ~ WORD MSG.1T 

52 002502 045652 “WORD = MES. FT 

53 002504 045656 “WORD = MES.LT 

54 002506 045662 ~ WORD MES.IT 

55 002510 045666 » WORD MSG.FS 

56 002512 045671 “WORD MSG.LS 

58 s;STATUS/ERROR INDICATOR MESSAGES POINTER TABLE 

2 ;DEFAULT VALUES OF TEST PARAMETERS 

61 002514 002225 000310 001466 DFLT: .WORD 2225,200.,822.,0,0,0  ;RECAL/SEEK (TO) 

62 002530 006677 000144 000000 “WORD 667,100. 0,256.,0,0,0,0,0,0,0 ;SEEK/SEEK (11) 

63 002556 002237 000001 000000 WORD 2237.1,0,820.,1,0,0,0  : ENT SEEK ( 
002576 002237 000010 000000 WORD 2237.10,6,512.,1,0,0,0 :STEPPING SEEK (13) 

65 002616 002237 000001 000000 WORD  2237,1,0,822..1,0,0,0 :OSCILLATING SEEK (14 

66 002636 002237 000001 000000 WORD 2237,1,0,822..1,0,0,0 SCONVERGING/ DIVERGING. SEEK (15) 

67 002656 002237 000001 000000 WORD 2237,1,0,822.,1,0,0,0 SERVO naan LOGIC NOISE (T6) 
002676 000667 011610 000000 WORD  667,5000.,0,822.,0,4 0,18. M SEEK TEST (17) 

69 002716 000237 000001 000000 WORD 237.1,0,822.,100.,0,0 | ;SERVO sEntte Foun TEST (110) 

70 9027 00 30 000001 000000 WORD 2237,1,0,822.,1,0.0.0 :ALL SEEKS TEST (111 

71 002754 000001 000000 WORD 2223,1,0 0,0,6 ‘ROTATIONAL SPEED TIMING TEST (T12) 

72 002770 000007 000001 000000 WORD 7,1,0,822. TONE CYLINDER SEEK TIMING TEST (113) 
003 00000 000001 000000 WORD AR M.)3 sACCESS TIME MEASUREMENT TEST (114) 

74 003010 000007 000001 000000 WORD 7.1.0,822. [MAXIMUM SEEK TIMING TEST (115) 

75 003020 000001 000000 WORD 233 1,0,0,0 sSECTOR ADDRESSING TEST (116) 

76 003032 002003 000001 000000 WORD  2008,1,6,0 “TRACK ADDRESSING TEST (117) 

017777 000001 000000 WORD 17777,1,0,821.,64..0,4,1.0,18. Vel 04177777 sDATA TEST (120) 

78 003076 000007 001750 000000 “WORD 7,1000..0.821. SEXERCISER (121) 

19 003106 000007 011610 000000 “WORD 7,5000..0.255. SACCESS TIME ADJUSTMENT TEST (122) 

rH ;PARAMETER TABLES 

83 sRECAL/SEEK (TO) 

84 003116 002225 PRMO: WORD 2225 

85 003120 000310 “wORD 200. 

86 003122 001466 “WORD B22. 

87 003124 00 “WORD 0 

88 003126 000000 “WORD 0 

89 003130 000000 “WORD 0 

91 SEEK/SEEK (11) 

92 003132 006677 WO 77 

93 003134 000144 “WORD 100. 

9% 003136 000000 “WORD 

95 003140 000400 “WORD 256. 

9 003142 000000 “WORD 0 

97 003144 000u00 “WORD 0 

98 003146 000000 “WORD 0 

99 003150 000000 “WORD 0 
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TEST PARAMETER POINTERS AND TABLES SEQ 0051 
100 003152 000000 «WORD 0 
101 003154 000000 -WORD 0Q 
‘8 003156 000000 WORD 0 
104 ; INCREMENT SEEK (12) 
105 003160 002237 PRM2: .WORD 2237 
106 003162 000001 «WORD 1 
107 003164 000000 -WORD 0 
108 003166 001466 -WORD 822. 
109 003170 000001 WORD 1 
110 003172 000000 -WORD 0 
111 003174 000000 -WORD 0 
eT 003176 000000 WORD 0 
114 sSTEPPING SEEK (13) 
115 003200 002237 PRM3: .WORD 2237 
116 003202 000001 WORD 1 
117 003204 000000 -WORD 0 
118 003206 001000 «WORD 512. 
119 003210 001 WORD 1 
120 003212 000000 -WORD 0 
121 003214 000000 -WORD 0 
is 003216 00 -WORD 0 
124 sOSCILLATING SEEK (14) 
125 003220 00223 PRM4: .WORD 2237 
126 003222 000001 -WOR 1 
127 OO 35S¢ 000000 -WORD 0 
128 003226 001466 WORD 822. 
129 003230 000001 WORD 1 
130 003232 000000 -WORD 0 
131 003234 000000 WORD 0 
13 003236 000000 -WORD 0 
134 ;CONVERGING/DIVERGING SEEK (15) 
135 003240 002237 PRM5: .WORD 2237 
136 003242 000001 ~WORD 1 
137 003244 000000 -WORD 0 
138 003246 001466 -WORD 822. 
139 003250 000001 WORD 1 
140 003252 00000 -WORD 0 
141 003254 000000 -WORD 0 
py 003256 000000 -WORD 0 
14G SERVO ADDRESSING LOGIC NOISE GENERATOR (16) 
145 003260 002237 PRM6: .WORD 2237 
146 003262 000001 WORD 1 
147 003264 000000 WORD 0 
148 003266 001466 -WORD 822. 
149 003270 000001 -WORD 1 
150 003272 000000 WORD 0 
151 003274 000000 -WORD 0 
13 003276 000000 WORD 0 
154 ;RANDOM SEEK TEST (17) 
155 003300 000667 PRM7: .WORD 667 
156 003302 011610 -WORD 5000. 


157 003304 
158 003306 
159 EY 
160 003312 
161 003314 
\6¢ 003316 
16 

164 

165 003320 
166 003322 
167 003324 
168 003326 
169 003330 
170 003332 
171 003334 
172 

173 

174 003336 
175 003340 
176 003342 
177 003344 
178 003346 
179 003350 
180 003352 
181 003354 
182 

183 

184 003356 
185 003360 
186 003362 
187 003364 
188 003366 
189 003370 
190 

191 

192 003372 
193 003374 
194 003376 
195 003400 
196 

197 

198 003402 
199 003404 
200 003406 
201 003410 
202 

203 

204 003412 
205 003414 
206 003416 
207 003420 
208 

209 

210 003422 
211 0034246 
212 003426 
213 003430 
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TEST PARAMETER POINTERS AND TABLES 


000022 


000237 


000000 


002223 


000000 


000007 
000001 
000000 
001466 


000007 


000223 
000001 
000000 
000000 
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;SERVO SETTLE DOWN TEST (110) 
PRM 


WN 

10: .WORD 237 
-WORD 1 
0 

sALL_ SEEKS TEST 
PRM11: .WORD 


;ROTATIONAL SPEE MING TEST (112) 
PRM12: .WORD 


sONE CYLINDER SEEK TIMING TEST (113) 
PRM13: 


- WORD 


WORD 

- WORD 

» WORD 22. 
sACCESS TIME MEASUREMENT TEST (114) 
PRM14: .WORD 

- WORD 

«WORD 

«WORD 55. 
;MAXIMUM SEEK TIMING TEST (115) 
PRM15: .WORD 

- WORD 

«WORD 

«WORD 22. 
SECTOR ADDRESSING TEST (116) 
PRM16: .WORD 23 


8 
1 
0 
0 
( 
2 
1 
0 
8 
1 
0 
0 
0 
D 
2 
1 
0 
0 
. 0 
WORD 0 
E 
7 
1 
0 
8 
$ 
? 
1 
0 
2 
M 
7 
1 
0 
8 
N 
2 
1 
0 
0 


SEQ 0052 


mrrrr 
S 
Ww 
Nm 


WN — SO DONO USWN “OO DOOnNOuse 
FEFSESEEES 
~ 


WAWI ATI RIN RT MUNIN Os es 


$< 
sss Sssssssssssssss Sssss 


MIPMIMIPINITU PPI PoNonononyfnunofofnofnefyrorfrofy 
FESEE 
NaNN 
OFS 


F&F FUwWwwwe 
Nm—OOOnouw 


i=J 
So 
WAN 
Mn 
Sees 


Nm 
= 


-. 
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| Test PARAMETER 


POINTERS AND TABLES 


000000 


177777 


000007 


«WORD 0 
; TRACK ADDRESSING TEST (117) 
PRM17: .WOR 2003 


= 

oS 

zDD 

ovCo7o 
oo— 


PTRNIS: WORD 
sEXERCISER (121) 
PRM21: .WORD 7 
"wORD 1000. 
"wORD 0 
“WORD 821. 
sACCESS TIME ADJUSTMENT TEST (122) 
PRM22: .WORD 7 


OR 
~-WORD 5000. 
-WORD 0 
-WORD 255. 


SEQ 0053 


co 
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DATA PATTERN POINTERS AND TABLES SEQ 0054 
} .SBTTL DATA PATTERN POINTERS AND TABLES 
3 003520 003560 PAT.PT: .WORD PATO DATA PATTERN 0 
6 003522 003620 “WORD PATI ZDATA PATTERN 1 
003524 003660 “WORD PAT2 :DATA PATTERN @ 
0035¢6 005720 “WORD PATS ZDATA PATTERN 
0035 003760 «WORD PATS ;DATA PATTERN 4 
003532 004020 “WORD = PATS ZDATA PATTERN 5 
003534 004060 “WORD PAT6 ZDATA PATTERN 6 
003536 004120 «WORD PAT? DATA PATTERN 7 
003540 004160 «WORD PATS :DATA PATTERN 8 
003542 004220 “WORD = PATS ZDATA PATTERN 9 
0035 60 WORD PAT10 ;DATA PATTERN 10 
003546 004320 WORD PAT11 :DATA PATTERN 11 
003550 004360 WORD PATI2 ZDATA PATTERN 12 
003552 004420 WORD PAT13 ;DATA PATTERN 13 
003554 004460 «WORD PAT14 ;DATA PATTERN 14 
, 003556 004520 “WORD PAT15 :DATA PATTERN 15 
8 003560 066666 PATO:  .WORD 066666 :PATTERN 0 
9 003562 066666 “WORD 066666 
10 003564 6 WORD 066666 
11 003566 066666 “WORD 066666 
12 603570 066666 “WORD 066666 
13 003572 066666 WORD 066666 
14 003574 066666 WORD 066666 
15 003576 WORD 066666 
18 003600 066666 WORD 066666 
17 00 066666 WORD 066666 
18 003604 “WORD 046666 
19 003606 066666 “WORD 066666 
20 003610 066666 “WORD 066666 
21 003612 066666 “WORD 066666 
22 003614 066666 “WORD 066666 
23 003616 066666 “WORD 066666 
25 003620 000001 PATI: WORD 000001 :PATTERN 1 
26 003622 000003 “WORD 000003 
27 003624 ? “WORD 000007 
28 003626 000017 “WORD 000017 
29 003630 000037 “WORD 000037 
30 003632 000077 “WORD 000077 
31 003634 000177 “WORD 000177 
32 003636 000377 “WORD 000377 
33 003640 000777 “WORD 000777 
34 003642 001777 “WORD 001777 
35 003644 003777 “WORD 003777 
36 003646 007777 “WORD 007777 
37 003650 017777 “WORD 017777 
38 003652 037777 “WORD 037777 
39 003654 077777 “WORD 077777 
40 003656 177777 “WORD 177777 
42 003660 177776 PAT2: .WORD 177776 SPATTERN 2 
43 003662 177774 “WORD 177774 
44 003664 177770 “WORD 177770 
45 003666 177760 “WORD 177760 
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DATA PATTERN POINTERS AND TABLES SEQ 0055 
46 003670 177740 «WORD 177740 
003672 177700 WORD 177709 
48 003674 177600 -WORD 177600 
49 003676 177400 -WORD 177400 
50 it 00 177 ~WORD 177000 
51 003702 176000 -WORD 176000 
26 003704 174000 -WORD 174000 
53 003706 170000 WORD 170000 
54 003710 00 WORD 160000 
55 003712 140000 WORD 140000 
56 003714 100000 -WORD 100000 
a4 003716 000000 -WORD 000000 
59 003720 000000 PAT3: .WORD 000000 ;PATTERN 3 
60 003722 000000 -WORD 000000 
61 003724 000000 -WORD 000000 
6¢ 003726 177777 WORD 177777 
63 003730 177777 WORD = 177777 
64 003732 177777 «WORD 177777 
65 003734 00 -WORD 000000 
66 003736 0000 -WORD 000000 
67 003740 177777 WORD = 177777 
68 003742 177777 «WORD = 177777 
69 003744 0000 -WORD 000000 
70 003746 177777 «WORD = 177777 
71 00375 -WORD 000000 
73 003734 009000 "WORD 090000 
me 003756 1 09 - WORD 199999 
76 003760 000000 PAT4:  .WORD 000000 ;PATTERN 4 
77 003762 010421 -WORD 010421 
78 003764 021042 -WORD 021042 
79 003766 031463 -WORD 031463 
80 003770 042104 «WORD 042104 
81 003772 £4 tyes -WORD 052525 
Ht 003774 063146 «WORD 063146 
83 005776 073567 -WORD 073567 
84 004000 104210 -WORD 104210 
85 004002 114631 -WORD 114631 
86 004004 1$203¢ -WORD 125252 
87 004006 15567 -WORD 1535675 
88 004010 146314 ~WORD 146314 
89 004012 156735 WORD 156735 
90 004014 167356 -WORD 167356 
4 004016 177777 WORD 177777 
35 004020 052525 PATS: .WORD 052525 ;PATTERN 5 
94 004022 052525 -WORD 052525 
95 004024 052525 -WORD 052525 
36 004026 125252 ~WORD 125252 
97 004030 125252 WORD 125252 
98 004032 Ag3¢3¢ «WORD 163838 
99 004034 0 $982 -WORD 052525 
100 004036 052525 -WORD 052525 
101 004040 125252 -WORD 125252 
102 004042 12525? -WORD 125252 


SEQ 0056 


c 
7 


E 
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DATA PATTERN POINTERS AND TABLES 
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;PATTERN 6 
;PATTERN 7 
;PATTERN 8 


PVUMVIMNN EPP OOOP-P-COOP- OP. OCR-FC NM NNNUNNMNMNN AMM MMMMMMNMMMNNe 
NMNWMNAIN ——— COO—— OO — OK— OK QD AANA NNANANANAMNGY AMMAMMAMMMMMMMMMIany 
DOGLOGVLA FFF ST FON TOTO TM TT OPT TIM FOSS —(§ DON MMAMM MMMM MAMI) 
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MACRO V03.01 11-APR 


CZRMVAO RMOS/3/2 EXT'D DR TST 


SEQ 0057 


DATA PATTERN POINTERS AND TABLES 


;PATTERN 9 

;PATTERN 10 
;PATTERN 11 
PATTERN 12 


DWM EEE 


DOME RRR 


CCM KK OC Cth eek eel el el oe eh el oe ae ce el ee ed ee oeree-— 


RARSAABRGVISARFR SYBSLKLLSASSOWLS SUASINRSGYIIANLR YBIZO 


NANNIES VANVVNNMMIAARAMamiIn Lh al alt Lal Lal Lal bal bal] mryererlery 


SSSSSSSSSSSSSSSS SSSSSSSSSSsSssss SesssssesSessees pEEEe 


SSVSSSSBSSLAALALLNLLSSISSSSBSSKaSTISSSSSSSVSSSSSSSO= LALLA 


Se eee mere eee eRe etaranabaharanane 


0 
2 


c 
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DATA PATTERN POINTERS AND TABLES SEQ 0058 
217 004372 175777 «WORD = 175777 
218 004374 176777 «WORD 176777 
219 004376 177377 -WORD 177377 
220 004400 177577 WORD 177577 
221 004402 177677 WORD 177677 
222 004404 177737 WORD 177737 
225 004406 177757 WORD 177757 
224 0044610 177767 -WORD 177767 
225 004412 177773 -WORD = 177773 
226 004414 177775 «WORD = 177775 
334 004416 177776 -WORD 177776 
229 004420 153333 PAT13: .WORD 153333 ;PATTERN 13 
230 004422 066667 WORD 066667 
231 004424 153333 WORD 153333 
232 004426 066667 -WORD 066667 
233 004450 153333 -WORD 153333 
234 004432 066667 -WORD 066667 
235 004434 153333 WORD 153333 
236 004436 066667 -WORD 066667 
237 440 153333 WORD 153333 
238 42 066667 -WORD 066667 
239 004444 153333 WORD 153333 
240 446 066667 WORD 066667 
241 50 153333 WORD 153333 
242 004452 06666 WORD 06666 
243 004454 153333 WORD 153333 
ste 004456 066667 WORD 066667 
246 004460 000000 PAT14: .WORD 000000 ;PATTERN 14 
247 004462 177777 -WORD 177777 
248 0044664 177777 -WORD 177777 
249 004466 177777 -WORD 177777 
250 004470 177777 -WORD 177777 
251 004472 177777 -WORD 177777 
252 004474 177777 ~WORD 177777 
253 004476 177777 WORD 177777 
254 004500 177777 «WORD = 177777 
255 004502 177777 -WORD 177777 
256 004504 177777 -WORD 177777 
257 004506 177777 -WORD = 177777 
258 004510 177777 -WORD 177777 
259 004512 177777 WORD 177777 
260 004514 177777 WORD 177777 
$6) 004516 177777 WORD 177777 
263 004520 177777 PATI5: .WORD 177777 ;PATTERN 15 
264 004522 000000 -WORD 000000 
265 004524 000000 -WORD 000000 
266 004526 000000 -WORD 000000 
267 0045 -WORD 000000 
268 004532 000000 -WORD 000000 
269 004534 -WORD 000000 
270 004536 000000 -WORD 000000 
271 004540 000v00 -WORD 000000 
272 004542 000000 -WORD 000000 
273 004544 000000 -WORD 000000 


> 
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DATA PATTERN POINTERS AND TABLES SEQ 0059 
274 004546 000000 «WORD 000000 
275 004550 000000 «WORD 000000 
276 004552 000000 «WORD 000000 
277 004554 000000 «WORD 000000 
ore 004556 000000 -WORD 000000 
460 


CZRMVAO RMOS/3/2 EXT'D DR TST 
START OF PROGRAM 


PRODI wt et a wt es es ss 


— 


wr 
ss 
33 
w 
Co 
oO 


—SOOONOUNE WN —-ODOOneus 


004706 


SSESSEESEEESE 


So 
oS 
= 
SFSRSEN TSS 


ae 


So 
= 


SSSsss Sssss 


012737 
000402 


005037 
005037 
000411 


012737 
000402 


005037 
012737 


No— 
oO 
Norm 
Foo 


Set et at eet 
MMM MOUVIPINIWIPIPINPIPIPOPY oh FUT 
ANN OO VN NNN ONION 
WALA WAI AAAI WII tO 
QQ OO 


— Ro aA ee ee at 
NNNROW!W NNO 


par par pos 
Morr 
ons 


001114 
001154 
001100 
024646 


005044 


000176 
000174 
000004 


yt 
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:GET BUSADR FLAG 


:CLR BUSADR FLAG 
3NO CONTROL *'C’’ 


;SET BUSADR FLAG 


CLR BUSADR FLAG 
;SET CONTROL ‘'C’’ FLAG 


i TY LOOP, WAIT FOR INCREMENT 
;OF WORD 
;CLEAR THE WORLD 


~SBTTL START OF PROGRAM 
001322 START3: MOV #-1,BUSADR 
BR STRTIA 
START1: CLR BUSADR 
STRTIA: CLR CNTRLC 
BR START 
001322 STARTS: MOV #1 ,BUSADR 
BR STRTCA 
START2: CLR BUSADR 
001320 STRT2A: MOV #-1,CNTRLC 
START: NOP 
INC #0 
BNE “4 
RESET 
~SBTTL_ INITIALIZE THE COMMON TAGS 


3:CLEAR THE COMMON TAGS (SCMTAG) AREA 


MOV 2 maaan 


TACK ,SP 
ss INITIALIZE A Few VECTORS 
000020 #$ 


000022 nov tng F a#iOTVEC+2 ; 
000030 MOV 
000032 MOV #340, aseMt VEC+2 ; 
000034 MOV 
000036 MOV #340, a#TRAPVEC42; ;LEVE 
021172 MOV SENDCT $ CT 
025646 MOV #176543, SHINUM 
025650 MOV #123456, SLONUM 
CLR STIM 
CLR SESCAPE 
001131 MOVB #1,SERMAX 
001122 MOV 4. .SLPADR 
001124 *SLP 


3;EQUAL TO A “'=1"', 
MOV a#ERRVEC ,-(SP) 


000004 MOV #64% ,A#ERRVEC 
001154 MOV #OSWR,SWR 
001156 MOV #ODISP DISPLAY 
174122 CMP #~1,QSWR 
BNE 66% 
BR 65$ 
648: ary #65$, (SP) 
001154 65$: MOV WSWREG, SWR 
001156 MOV #DISPREG,DISP 
66$: MOV (SP)+,@#ERRV EC. 


MOV ERR U 
::SIZE FOR A HARDWARE SWITCH REGISTER. 


::FIRST LOCATION TO BE CLEARED 
:3CLEAR MEMORY LOCATION 
*:LOOP BACK IF NO 

::SETUP THE STACK POINTER 


#SSCOPE, SPIOTVEC Fd ig hae FOR SCOPE ROUTINE 
WSERROR avEMTVEC 4 VECTOR FOR ERROR ROUTINE 
WSTRAP ,a#TRAPVEC. : TRAP_VECTOR FOR TRAP CALLS 


ETUP END-OF-PROGRAM COUNTER 

‘PRIME THE RANDOM NUMBER GENERATOR 

:;BOTH HIGH AND LOW WORDS 

: INITIALIZE NUMBER OF ITERATIONS 

+3 CLEAR THE folate ON ERROR ADDRESS 

;;ALLOW ONE ERROR PER TEST 

se INIT IALIZE THE LOOP ADDRESS FOR SCOPE 
T OP ADDRESS 


IF NOT FOUND OR IT IS 


SETUP FOR A SOFTWARE SWITCH REGISTER. 


7:SAVE ERROR VECTOR 

:;SET UP ERROR VECTOR 

::SETUP FOR A HARDWARE SWICH REGISTER 
:;AND A HARDWARE DISPLAY 1 Ss 


; M 
THSET UP FOR TRAP RETURN 
gy POU TO SOFTWARE SWR 
" | sRESTORE ERROR VECTOR 


SEQ 0060 


J 5 
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INITIALIZE THE COMMON TAGS SEQ 0061 
05 005037 001242 CLR SPASS ::CLEAR PASS COUNT 
005070 083035 000200 001255 BITB  #APTSIZE,SENVM ssTESt USER SIZE UNDER APT 
005076 001403 BEQ S:YES,USE NON-APT SWITCH 
905100 012737 001256 001154 ios MOV #SSWREG, SWR [INO,USE APT SWITCH REGISTER 
22 .SBITL TYPE PROGRAM NAME 
TYPE THE _NAME OF THE PROGRAM IF FIRST PASS 
005106 005227 177777 INC #-1 ssFIRST TIME? 
005112 001054 BNE 58S ::BRANCH IF NO 
005114 022737 021244 000042 CMP WSENDAD,Q#42 =: :ACT-11? 
005122 001450 BEQ 68$ i 7BRANCH IF YES 
005124 104401 005172 TYPE ,69% E AASCIZ STRING 
.SBTTL GET VALUE idk SOF TWARE sbiten REGISTER 
005130 005737 000042 #42 77ARE WE RUNNING UNDER XXDP/ACT? 
005134 001012 bx *OS ‘:BRANCH IF YES 
5136 123727 001254 000001 CMPB Ss SEN, #1 :3ARE WE RUNNING UNDER APT? 
005144 001406 BEQ 70$ ‘BRANCH IF YES 
005146 023727 001154 000176 CMP SWR, #SWREG 3 3 SOF TWARE SWITCH REG SELECTED? 
005154 001005 BNE 71$ :BRANCH IF NO 
005156 104406 GTSWR T:GET SOFT-SWR SETTINGS 
005160 000403 BR 71$ 
005162 112737 000001 001150 708: MOVB #1, SAUTOB ::SET AUTO-MODE INDICATOR 
005170 000425 BR 68$ GET OVER THE ASC1Z 
::69$: .ASCIZ <CRLF>@CZRMVAO -'RMOS/3/2 EXTENDED DRIVE TESTA<CRLF> 
sd 005244 68s: 
24 005244 012700 001174 MOV #SREGAD,RO sFIRST ADDRESS 
25 005250 005020 1$: CLR (RO) + [CLEAR VARIABLE STORAGE 
26 005252 022700 001224 CMP #SBELL,RO ‘DONE? 
27 005256 001374 BNE 1$ :NO--BRANCH 
28 005260 013737 001516 001164 MOV TPS, STPS ‘SETUP THE STATUS AND BUFFER REG'S 
29 005266 013737 001520 001166 MOV TPB, $TPB ‘FOR THE TYPE ROUTINE 
31 : THE FOLLOWING FINDS GUT THE PROGRAM CONTROL MODE: 
32 [PAPER TAPE (MANUAL), ACT11, XXDP CHAIN OR DUMP 
34 005274 005037 001466 CLR XXDP SCLEAR 'XXDP* LOAD DEVICE STORAGE 
35 005300 122737 000016 000041 CMPB ss #16, #41 “LOADED FROM AN RMO5S/3/2 ? 
36 005306 001160 BNE [BR IF NOT 
37 005310 013737 000040 001466 MOV a#40,XXDP GET DEVICE INDICATOR AND NUMBER 
38 005316 122737 000007 001466 CMPB so #'7, XXDP i18 IT A VALID NUMBER 
39 005324 103002 BHIS 2% 
40 005326 105037 001466 CLRB = XXDP MB. DEFAULT TO DRIVE 0 
41 005332 005737 000042 2$: TST av42 [CHAIN MODE OR ACT11 AUTO ACCEPT ? 
42 005336 001425 BEQ 3$ ‘BR IF NEITHER 
43 005340 104401 005346 TYPE 73$ :3 TYPE ASCIZ STRING 
005344 000412 BR 23 GET OVER THE ASCIZ 
-:73$:  ASCIZ <CRLF>/NOT TESTING DRIVE / 
005372 72$: 
44 005372 005046 CLR (SP) :CLEAR WORD ON STACK 
45 005374 113716 001466 MOVB = XXDP, (SP) “GET DRIVE ADDRESS 
46 005400 104403 TYPOS [TYPE THE ADDRESS 
47 005402 001 .BYTE 1 ‘ONLY 1 CHARACTER 
48 005403 000 "BYTE 0 ‘SUPRESS LEADING ZEROS 
49 005404 104401 001231 TYPE  ,$CRLF :CR=LF 
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GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0062 
50 005410 000517 BR 4$ :GET NUMBER OF DRIVES 
$2 005412 005227 177777 3$: INC #-1 :FIRST TIME THRU HERE ? 
53 005416 001114 BNE 4$ NO 
54 005420 104401 005426 TYPE 75$ is TYPE ASCIZ STRING 
005424 000410 BR 74$ “GET OVER THE ASCIZ 
-:75$: .ASCIZ <CRLF>/10 TEST DRIVE / 
005446 748: 
55 005446 005046 CLR -(SP) :CLEAR WORD ON STACK 
56 005450 113716 001466 MOVB  XXDP, (SP) [GET DRIVE ADDRESS 
57 005454 104403 TYPOS :TYPE DRIVE ADDRESS 
58 005456 001 .BYTE 1 ‘ONLY 1 CHARACTER 
59 005457 000 .BYTE 0 : SUPRESS LEADING ZEROS 
60 005460 104401 005466 TYPE 77$ iz TYPE ASCIZ STRING 
005464 000431 BR 76$ ‘GET 0 OVER THE ASCIZ 
ats pigs: .ASCIZ /, HALT PROGRAM, REMOVE RRDP PACK AND REPLACE IT/<CRLF> 
61 005550 104401 005556 TYPE ,78$ si TYPE ASC1Z STRING 
005554 000435 BR is :GET OVER THE ASCIZ 
aati 55788: .ASCIZ /WITH A WORK PACK. CLEAR LOCATION 40 AND RESTART PROGRAM. /<CRLF> 
65 005650 004737 023404 JSR PC, STKINT N ON THE TTY KEYBOARD INTERRUPT 
66 .SBTTL ce! VALUE FOR SOFTWARE stiTGh REGISTER 
005654 005737 000042 ae42 ARE WE | INNING UNDER XXDP/ACT? 
005660 001012 BNE 79$ ‘BRA ANCE 1° YE 
005662 123727 001254 000001 CMPB es SEN, #1 ::ARE we RUNNING UNDER APT? 
005670 001406 BEQ 79$ 3;BRANCH IF YES 
005672 023727 001154 000176 CMP SWR, #SWREG ::SOFTWARE SWITCH REG SELECTED? 
005700 001005 BNE 80$ : BRANCH IF NO 
005702 104406 GTSWR ::GET SOFT-SWR SETTINGS 
005704 000403 BR 80$ 
005706 112737 000001 001150 798: MOVB #1, $AUTOB ::SET AUTO-MODE INDICATOR 
67 005714 005227 177777 INC #-1 :SEE IF FIRST START 
68 005720 001002 BNE SRTINT ;BR IF NOT 
$9 005722 004737 045260 JSR PC,GETADR ‘GET OR CHECK THE RH/RM ADDRESS 
71 005726 104401 001231 SRTINT: TYPE ,SCRLF CRLF 
72 005732 004737 026114 JSR PC, LP.AVL :CHECK FOR A LINE PRINTER 
73 005736 005037 177776 CLR PS sENSURE THE PRIORITY = 0 
74 005742 012737 000001 001120 MOV #1,S1CNT :SET ITERATION COUNT TO 1 
75 005750 004737 033776 JSR PC.GETSWR :GO CHECK FOR CONTROL SWITCHES 
76 005754 004737 026156 JSR PC.ST.CLK SINITIALIZE THE CLOCK 
78 005760 004737 037104 SETVEC: JSR PC ,RMINIT :CHECK THE DRIVE STATUS 
79 005764 012737 177777 037026 MOV ani, SAVEFG iSET THE SAVE REGISTERS FLAG 
80 005772 005227 177777 INC #1 FIRST TIME THRU HERE ? 
81 005776 001403 BEQ 1$ “BR 1F NO 
82 006000 005737 001320 TST CNTRLC :CONTROL 'C' SWITCH SET ? 
83 006004 001112 BNE SRTDRV :CONTINUE IF YES 
84 006006 012737 000340 177776 1%: MOV #PR7,PS ‘SET PRIORITY TO 7 
85 006014 005004 CLR RG :DR IVE TABLE POINTER 
86 006016 104401 045731 TYPE ,UNSTAT STYPE "UNIT STATUS' 
87 006022 104401 001231 2$: TYPE *SCRLF CRLF 
88 006026 010446 MOV R4,=(SP) +: SAVE R4 FOR TYPEOUT 
::TYPE DRIVE NUMBER 
006030 104403 TYPOS +:G0 TYPE=-OCTAL ASCII 
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GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0063 
00603 002 .BYTE 2 i TYPE 2 DIGIT(S) 
Mites 000 -BYTE 0 i SUPPRESS LEADING ZEROS 
89 006034 104401 046655 TYPE ,BLNKS4 ‘TYPE 4 SPACES 
90 006020 105764 036740 TSTB = ORVSTA(R4) CHECK “pRIVE'S STATUS 
91 006044 100416 BM] 5$ [BR IF UNSAFE 
006046 001020 BNE 6$ :BR IF ONLINE 
93 006050 105764 036750 TSTB  DRVTYP(R4) [SEE IF OFFLINE OR NONEXISTENT 
94 006054 001404 BEQ 3g ‘BR IF NONEXISTENT 
95 006056 100006 BPL 4$ :BR IF OFFLINE 
96 006060 104401 046015 TYPE NOTRM ‘DRIVE NOT AN RMOS/3/2 
4 006064 000452 BR i1$ :CHECK NEXT DRI 
99 006066 104401 045770 3$: TYPE NOTPRS sDRIVE NOT PRESENT 
100 006072 000447 BR 11$ :CHECK NEXT DRIVE 
102 006074 104401 045747 4$: TYPE UNTOF F sDRIVE OFFLINE 
103 006100 000416 BR &$ ‘PRINT DRIVE TYPE 
105 006102 104401 046005 5$: TYPE NOTSAF ZDRIVE UNSAFE 
106 006106 000413 BR bt ‘PRINT DRIVE TYPE 
108 006110 005737 001466 6$: TST XXDP SLOADED FROM THIS DEVICE ? 
109 006114 001406 BEQ 7$ ‘BR IF NO 
110 006116 123704 001466 CMPB ss XXDP, RG i LOADED FROM THIS DRIVE ? 
111 006122 001003 BNE 7$ NO 
112 006124 104401 046036 TYPE LODEV cORIVE 1S LOAD DEVICE 
113 006130 000430 BR i1$ 
114 906 132 104401 045760 7$: TYPE §_,UNTON :DRIVE ONLINE 
115 0061 104401 046657 8$: TYPE ‘BLNKS2 [TYPE 2 SPACES 
116 006142 005000 CLR R 
117 006144 116400 036750 MOVB ODRVTYP(R4),RO ;GET DRIVE TYPE 
118 006150 012737 046063 006210 MOV #$RMO3, 108 : ASSUME ADDRESS OF RMO3 MESSAGE 
119 006156 122700 000004 CMPB ss #4, RO :1S DEVICE A MOS ? 
120 006162 001411 BEQ :TYPE IT IF Y 
121 006164 012737 046056 006210 MOV #$RMO2, 108 SADDRESS OF RO? MESSAGE 
122 006172 122700 000005 CMPBs#'5,, RO 71S DEVICE AN RMO2 ? 
123 006176 001403 BEQ 9$ ‘BR IF YES 
124 006200 012737 046070 006210 MOV #SRMOS, 108 SADDRESS OF RMOS MESSAGE 
126 006206 104401 9$: TYPE :TYPE THE DRIVE TYPE MESSAGE 
127 006210 000000 10$: .WORD 0 sMESSAGE ADDRESS HERE 
129 006212 005204 11$: INC RG ZINCREMENT DRIVE NUMBER/TABLE POINTER 
130 006214 020427 000010 CMP R4 #8. FINISHED 
131 006220 001300 BNE 2$ ‘BR IF NOT. 
132 006222 104401 001231 TYPE  ,$CRLF CRLF 
134 006226 005037 177776 CLR PS sSET PRIORITY BACK TO ‘0° 
136 006232 005737 001320 SRIDRV: TST CNTRLC CONTROL | “¥ START/RESTART? 
137 006236 001417 BEQ 2s 3NO--BRAN 
138 006240 013746 001316 MOV SAVC SW, -(SP) :GET THE PREV 0Us "C.SWR’ CONTENTS 
139 006244 063716 001314 ADD C.SWR ‘SET UP TO SEE IF *BiT00" 1S DIFFERENT 
140 906250 032726 000001 BIT #81100, (SP)+ 1S "81100" DIFFERENT ? 
141 006254 001405 BEQ 1$ R IF NOT 
142 006256 013737 001314 001316 MOV C.SWR, SAVCSY STORE PRESENT 'C.SWR' VALUE 
143 006264 004737 026434 JSR PC,LODFLT ‘RESET PARAMETERS TO THEIR DEFAULT VALUES 
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GET VALUE FOR SOFTWARE SWITCH REGISTER 


144 006270 
145 006274 
146 006 43 
147 00630 
148 006306 
149 006310 
150 
151 006314 
136 006320 
153 006322 
154 006326 
155 006350 
156 006334 
157 006336 
158 006344 
159 006346 
ioe 006350 
162 006352 
163 006356 
164 006364 
165 006366 
166 006372 
167 006372 
168 006376 
169 006402 
170 006404 
171 006410 
172 006412 
173 006416 
174 
175 006422 
176 006424 
177 006426 
178 006432 
006434 
006436 
006437 
179 006440 
180 006442 
181 006444 
182 006450 
183 006452 
184 
185 006454 
186 006462 
187 006466 
188 006470 
189 006476 
Hs 006500 
192 006504 
193 006510 
194 006512 
195 
196 006516 
197 006522 


004737 034226 1$: JSR 
nel BR 
0047 026434 2$: JSR 
005037 001326 CLR 
005000 CLR 
012701 000001 MOV 
105760 036740 3$: TSTB 
003411 BLE 
005737 001466 TST 
001403 BEQ 
123700 001466 CMPB 
001403 BEQ 
156037 037054 001326 4$: B1SB 
005200 5$: INC 
106301 ASLB 
001361 BNE 
005037 037030 6$: CLR 
032737 000400 001314 BIT 
001002 BNE 
005137 037030 - COM 
104401 046075 TYPE 
005037 021200 CLR 
005000 CLR 
013701 001326 MOV 
001004 BNE 
104401 046125 TYPE 
000137 021020 JMP 
006201 8S: ASR 
103011 BCC 
005237 021200 INC 
010046 MOV 
104403 TYPOS 
001 BYTE 
000 -BYTE 
005701 TST 
001404 BEQ 
104401 046132 TYPE 
005200 9$: INC 
000763 BR 
013737 021200 021172 10$: MOV 
005737 001340 TST 
003006 BGT 
032737 036000 001330 BIT 
001402 BEQ 
104401 046135 TYPE 
005737 001326 RSTRT1: TST 
001002 BNE 
000137 004612 JMP 
005037 001350 1$: CLR 
012737 0600001 001352 MOV 


PC,GT.PRM 
6$ 
PC,LODFLT 
DRVSEL 

RO 

#1,R1 
DRVSTAC(RO) 
5$ 

XXDP 

4$ 
XXDP,RO 


:BR 
+ anaes cama 


R1 

3$ 

SEEKFG 

#SW08,C.SWR 

SEEKFG 
DRIVES 

$ENDCT 


DRVSEL,R1 


SENDCT 


SENDCT,SEOPCT 
CLKSTA 

RSTRT1 
#36000, TSTNMS 
RSTRT1 
-NOCLOK 
DRVSEL 

1$ 


START2 


CHKDRV 
#1 ,DRVMSK 


. 4 
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;GET PARAMETERS 


;SETUP DEFAULT PARAMETERS 
sNO_ DRIVES SELECTED 

;DETERMINE THE DRIVES THAT 
sARE AVAILABLE FOR TESTING 


1S DRIVE ON-LINE ? 
[LOADED FROM THIS DEVICE ? 
“BR IF NO 

SLOADED FROM THIS DRIVE ? 
“BR IF YES 


YES, SELECT DRIVE FOR TESTING 
TRY NEXT DRIVE 

sANY MORE DRIVES TO CHECK ? 

;BR IF YES 


CLEAR SEEK FLAG 
D0 SEEK BEFORE DATA TRANSFER? 
a 


;"DRIVES(S) TO BE TESTED’ 
;DETERMINE PASSES TO MAKE AND 
;THE DRIVES TO BE TESTED 

sANY DRIVES SELECTED? 

: YES--BRANCH 

3 "NONE' 

; JUMP TO END OF PROGRAM 

;REPORT THE DRIVES TO BE TESTED 
:GIVE THIS DRIVE A PASS 

3;SAVE RO FOR TYPEOUT 


$3 DIGIT(S 
;;SUPPRESS LEADING ZEROS 
;MORE DRIVES? 
;NO=-BRANCH 


[FORM DRIVE NUMBER 


:18 KWIT<P AVAILABLE ? 

ZANY TIMING TESTS TO BE PERFORMED ? 
{TYPE NO KWI1-P CLOCK MESSAGE 

:ANY DRIVES SELECTED ? 

Lani seggziguge 


:INIT. THE CHECK DRIVE KEY 
START TO CHECK DESIRED DRIVES 


SEQ 0064 


Vv 
Vv 
198 
199 006530 
200 006536 
201 
202 006540 
203 006544 
204 006550 
205 006554 
206 006556 
207 
208 006560 
209 006564 
210 006570 
211 006572 
212 006574 
213 006602 
214 006604 
215 006610 
216 006614 
217 006620 
218 006624 
219 006630 
220 006636 
221 006644 
222 006652 
223 006654 
$e 006660 
356 dooste 
227 006676 
228 006704 
229 006710 
230 006714 
006716 
006720 
006721 
231 006722 
232 006726 
233 006732 
234 006736 
235 006742 
236 006744 
237 006746 
238 006750 
239 006752 
240 006754 
241 006756 
seg 006760 
243 006762 
244 006764 
245 006770 
246 006772 
247 006774 
248 007000 
249 007002 
250 007004 
251 007010 


“uNNSC 3=—ON 


-—-oS o-—Sco0 oO 


o-—- oooo— Ow 


SN NNN NED NSN NN NO Ne UP 


SWITCH REGISTER 


001352 


001350 
036740 


001352 
045456 


000020 
000001 


045457 


046222 


046132 


045606 


000060 
006772 


001231 
001462 


001326 RSTRT2: BIT 
BN 


001326 


001346 
045457 
001314 


045460 


045460 


001131 


RESTART: 


DRVOK: 


1$: 


2$: 


3$: 


4$: 


DRVMSK ,DRVSEL 
DRVOK 
#STACK,SP 

Vv 


RSTRT2 


CHKDRV,R2 
* Seeing 


11 
DRVMSK ,DRVSEL 
RESTART 


,DPB.C 
R2,DTADPB 
PC ,LDCMD 
#SEOP ,CYPASS 
#20,DPB.A+1 
* Spieiaherscas 


DPB.A+1 
#SETFORM,DPB.A+2 
RO,CALL.A 
PC,CNTCLR 

WRECAL ,DPB.At+2 
RO,CALL.A 

e TSTDRV 

R2,-(SP) 


_@ 


0 
, COMMA 
o SERIAL 


#4,R0 
RM.REG+30,R1 
R2 

R1 


R1 
R2 
R1 
R2 
R1 


za 
Nm 


, SCRLF 
ERR.CT, SERMAX 


an eae : 
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71S THIS DRIVE SELECTED? 
:YES--GO CHECK IF DRIVE IS READY FOR TESTING 


SETUP THE STACK POINTER 

sMOVE TO NEXT DRIVE NUMBER 

POSITION THE MASK 

sBRANCH IF THE DRIVE NUMBER NEEDS INITIALIZED 


;PICKUP THE DRIVE NUMBER 
21S DESIRED DRIVE ON-LINE? 
:YES, BRANCH 


;CLEAR DRIVE'S SELECTION BIT 
:SET THE DRIVE NUMBER INTO THE DPB'S 


;LOAD COMMAND INTO DPB.B AND DPB.C 
:1f ERROR GO TO END OF PROGRAM 
sASSUME 16 BIT FORMAT 

316 BIT FORMAT REQUESTED ? 


7BR_ IF YES 
CLEAR THE ‘FMT16" BIT 
SET THE FORMAT BIT PER DPB.A+1 
:GO EXECUTE THE COMMAND 
:GO CLEAR CONTROLLER 


:RECAL=COMMAND 
:GO EXECUTE THE COMMAND 
:"TESTING DRIVE ‘ 


3:SAVE R2 FOR TYPEOUT 
:3G0 TYPE--OCTAL ASCII 
szTYPE 2 DIGIT(S) 
oerenet LEADING ZEROS 


‘TYPE "MBA SNM ' 
‘FOUR DIGITS TO TYPE 
:SERIAL NUMBER 
“PUT THE NEXT DIGIT 
‘INTO R2 


sMAKE IT ASCII 
sSAVE IT 

s TYPE 

sALL DIGITS TYPED? 

:NO == BRANCH 

> CRLF 

>SETUP MAX ERROR COUNT 


SEQ 0065 


ee rar 


| oe RAVAO RMOS/ 
T VALUE FOR 


252 
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SEQ 0066 
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GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0067 


stm THe DESCRIPTIONS OF fie Berne teers. fe eantanes ueee tt 
THE DESCRIPTIONS OF THE BELOW TESTS THE VARIABLES USED 
= AND THEIR DEFAULT VALUES (UNLESS SPECIFIED OTHERWISE) ARE: 


; #RNEMONIC VALUE VARIABLE 


VALUE 
C+IC axeane MODIFIED CYLINDER 


:#NC2 LC-1C NEW OR MODIFIED CYLINDER 
; ADDRESS 


3eFT 0 FIRST TRACK ADDRESS 

2*LT 4 OR 18 LAST TRACK tee 

: 1 INCREMENT VALUE 

3*NT FT¢1T NEW OR movie Ie TRACK ADDRESS 


3eFS 0 FIRST SECTOR ADDRESS 
:*LS 31 LAST SECTOR ADDRESS 


® 
SEAAITTTTTTTTT TTA TATA AAA AL 
~SBTTL SEEK TESTS 


SELAATTITATTTTTAT TTT TTT 
:*THE SEEK TESTS WILL BE EXCUTED USING IMPLIED SEEKS. THESE 

; IMPLIED SEEKS — BE PERFORMED BY "READ HEADER AND 

;*DATA’’ COMMANDS TO TRACK ‘'FT'' SECTOR ‘‘FS'' OF THE DESIRED CYLINDER. 
:*THE WORD COUNT WiLL BE SET SUCH THAT =, THE CYLINDER AND 
:*TRACK/SECTOR WORDS OF THE HEADER ARE READ 

SSAIITTITTATT AAA AAA AAA AAA AAA AAA TA AAA AAA AAA 


SWAN ANI WIPRO POPPIN NUNN SO Ss Sw 
WO WEWN — 0 OONS VEFWN OO OONA UES WWNH OO ONCYVFWR— 
— 
a 
-_« 
“ 


rs 
, 


pee eeeeeeeeererererereerererereeeeeeeeeeeeeeRereeerereeereeeees 
;*TEST 0 RECAL/SEEK TEST 

s*THIS TEST WILL CAUSE THE DRIVE TO EXECUTE A RECALIBRATE 
>*COMMAND CYCLE AND THEN SEEK FORWARD TO CYLINDER “‘LC'' AT 

:*THE COMPLETION OF BOTH COMMANDS STATUS INDICATIONS ARE 

; *CHECKED TO ENSURE NO ERRORS OCCURRED. 


peereraeeeeeeeereeeererererereeteeKeheneeneeeeteeneneneneeeeeeene 


007016 1810: 
001526 001330 BIT at} tenia —_—, , wit THIS TEST? 
007204 JMP TST1 NO== JUMP TO TESTI 


000000 001116 MOV #0,STSTNM sSET TEST #0 AND CLEAR (SERFLG) 
026672 JSR PC ,LODPRA [LOAD THE PARMETERS FOR THE TEST 
007166 001124 MOV MTESTO,SLPERR ;SETUP THE LOOP ON ERROR ADDRESS 
002324 001220 MOV RPT, STIMES GET THE JTERATION COUNT 

000031 001131 MOVB #25. , SERMAX ;MAX ERRORS ALLOWED FOR TES? 
000000 001240 MOV #0, STESTN 3;SET TEST NUMBER IN APT MAIL BOX 


Ss 
$2 S823 


00 
fh eg 


007070 
45 


o-oo 

ht 

RorownN SP 
WWII OW 
SQN ONO NO 
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RECAL/SEEK TEST SEQ 0068 
007076 032777 010000 172050 BIT asul2, aswr ;INHIBIT TYPING TEST NUMBER ? 
007104 001406 BEQ +16 R IF YES 
007106 104401 046253 TYPE TST ‘TYPE "TEST' 

007112 013746 001240 MOV gsotst -(SP) ‘SAVE S$STESTN FOR TYPEOUT 
007116 10440 TYPOS 7:60 TYE -“OC TAL ASCII 
007120 002 .BYTE 2 ::TYPE 2 DIGIT(S) 

007121 000 .BYTE 0 :: SUPPRESS LEADING ZEROS 

46 007122 112737 000107 045460 MOVB #RECAL,DPB_A+2 :RECAL= COMMAND 

47 007130 113737 002342 045506 MOVB = FS, DPB. B+ 10 FS 

48 007136 113737 002334 045507 MOVB = FT .DPB..B+11 iF 

49 007144 013737 002330 045510 MOV LC,DPB.B+12 LC 

§8 007152 012737 007202 001346 MOV #EXITO, BYPASS ‘60 TO EXITO ON ERROR 
007160 012737 007166 001122 ets MOV #TESTO,SLPADR :SETUP LOOP ADDRESS 
007166 012706 001100 MOV #STACK,SP :SET UP STACK POINTER 
007172 037 027132 JSR RO,CALL.A :GO EXECUTE THE COMMAND 
007176 004037 027264 JSR RO, CALL.B :GO EXECUTE THE COMMAND 

007202 000004 EXITO: SCOPE [CALL SCOPE ROUTINE 

be 

67 coma (. Meme Mae oe ee ee ae 

SSTEST 1 SEEK/SEEK TEST 
"THIS TEST WILL CAUSE THE DRIVE TO EXECUTE A FORWARD SEEK 
CYCLE TO ' ‘LT’, "LS" FOLLOWED BY A REVERSE SEEK CYCLE TO 
esc”. “sr. Es". At THE COMPLETION OF EACH SEEK THE PROPER 
“INDICATORS ARE EXAMINED TO ENSURE PROPER OPERATION 
e Oheeeeeeeneeereeeeceeeerenreeeenaeereneeerecerenanereeeeererere 
007204 ié11: 
007204 000240 NOP 
007206 033737 001530 001330 BIT BITS+#<1#2>,TSTNMS :DO THIS TEST? 
007214 001002 BNE +6 :8 F YES 
007216 000137 007412 JMP TST2 :NO=- JUMP TO TEST2 
007222 012737 000001 001116 MOV #1, $TSTNM :SET TEST #1 AND CLEAR (SERFLG) 
007230 004737 026672 JSR PC, LODPRM [LOAD THE PARMETERS FOR THE TEST 
007234 012737 007374 001124 MOV #TESTI,$LPERR :SETUP THE LOOP ON ERROR ADDRESS 
0072462 013737 002324 001220 MOV RPT ,STIMES [GET THE ITERATION COUNT 
007250 112737 000031 001131 MOVB «#25, SERMAX [MAX ERRORS ALLOWED FOR TEST 

= 007256 012737 000001 001240 MOV #1,$TESTN ::SET TEST NUMBER IN APT MAIL BOX 
007264 032777 010000 171662 BIT #SW12,aSWR ; INHIBIT TYPING? TEST NUMBER ? 
007272 001406 BEQ “416 “BR IF YES 
007274 104401 046253 TYPE MSGTST [TYPE "TEST 
007300 013746 001240 MOV $TESTN,-(SP) i: SAVE STESTN FOR TYPEOUT 
007304 104403 TYPOS 7:60 TYPE=-OCTAL ASCII 
007306 002 -BYTE 2 zi TYPE 2 DIGIT(S) 

007307 000 .BYTE 0 >: SUPPRESS LEADING ZEROS 

69 007310 005037 001464 CLR BASFLG sCLEAR BAD SECTOR ENCOUNTER FOR THE DRIVE 

70 007314 113737 002342 045506 MOVB ~—- FS, DPB.B+10 ZFS 

71 007322 113737 002344 045526 MOVB DPB.C+10 “LS 

72 0073 113737 002334 045507 MOVB FT .DPB..B+11 FT 

73 007336 «113737 002336 045527 MOVB = LT. DPB.C#11 ZLT 

74 007344 013737 002 26 045510 MOV FC,0PB.B+12 “FC 

75 007352 013737 002330 045530 MOV LC.DPB.C+12 LC 

B0 007360 012737 007410 001346 MOV #EXIT1.BYPA [60 TO EXIT! ON ERROR 
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SEEK/SEEK TEST SEQ 0069 
oor sre 012737 007374 001122 Test} MOV #TEST1,SLPADR ;SETUP LOOP ADDRESS 

81 007374 012706 001100 "MOV #STACK,SP :SET THE STACK POINTER 

82 007400 004037 027466 JSR RO,CALL.C [G0 EXECUTE THE COMMAND 

83 0074%4 004037 027264 JSR RO.CALL.B 'G0 EXECUTE THE COMMAND 

oe 007410 000004 EXIT1: SCOPE ;CALL SCOPE ROUTINE 

9 

38 SL RMRAAeReeeeAAeeeePeeeeeTeKeeeraneteeeKeKeeaneRateneeeeneeeeeeee 


s*TEST 2 INCREMENT/SEEK TEST 

:*THIS TEST WILL we FORWARD SEEK CYCLES TO ADVANCE THE 
:*CYLINDER ADDRESS FROM ‘'FC’’ TO “'LC’’ BY THE INCREMENT “‘IC'’. 
; *WHEN THE RESULTANT CYLINDER ADDRESS (NC) EXCEEDS 

:*'LC’’ REVERSE nat CYCLES ARE INITIATED; STARTING 

TAT THE LAST LEGAL "'NC’’ AND DECREMENTING BY 

s*UNTIL "'NC’' IS LESS THAN ‘'FC’'. AT THE COMPLETION OF EACH 
*SEEK COMMAND THE PROPER INDICATORS ARE EXAMINED TO 
;*ENSURE PROPER OPERATION. 


WOTTTITIIIIITITITITITIITITITIL TLL 


007412 ié12: 
007412 000240 NOP 
007414 033737 001532 001330 BIT BITS+<2*2>, TSTNMS :D0 THIS TEST? 
007422 001002 BNE +6 <BR IF 
007424 000137 007654 JMP TST3 NO== JUMP TO TEST3 
007430 012737 000002 001116 MOV #2, STSTNM :SET TEST #2 AND CLEAR (SERFLG) 
007436 004737 026672 JSR PC.L [LOAD THE PARMETERS FOR THE TEST 
00744 012737 007546 001124 MOV WTERTD  SLPERR ‘SETUP THE LOOP ON ERROR ADDRESS 
007450 013737 002324 001220 MOV RPT ,STIMES :GET THE ITERATION COUNT 
007456 112737 000031 001131 MOVB =-#25.., SERMAX “MAX ERRORS ALLOWED FOR TEST 

# 007464 012737 000002 001240 MOV #2,$TESIN +;SET TEST NUMBER IN APT MAIL BOX 
007472 032777 010000 171454 BIT wsul2, aSwR : INHIBIT TYPING TEST NUMBER ? 

7500 001406 BEQ slo :BR IF YES 
007502 104401 046253 TYPE 1ST [TYPE ‘TEST’ 
7506 013746 001240 MOV gitsotst -(SP) +:SAVE $TESTN FOR TYPEOUT 

007512 104403 TYPOS +:G0 TYPE-=OCTAL ASCII 
007514 002 .BYTE 2 S:TYPE 2 DIGIT(S) 
007515 000 “BYTE 0 :: SUPPRESS LEADING ZEROS 

99 007516 012737 007524 001122 MOV Hs, SLPADR :SETUP LOOP ADDRESS 

100 007524 113737 002342 045506 15%: MOVB FS, DPB.B+10 “FS 

101 007532 113737 002334 04550, MOVB «FT. DPB.B+11 tFT 

105 007540 012737 007652 001346 hate MOV WEXIT2,BYPASS :GO TO EXIT2 ON ERROR 

106 007546 013737 002326 045510 v FC,DPB.B+12 ZFC 

107 007554 012737 007554 001124 MOV #. .SLPERR [SETUP THE ERROR LOOP ADDRESS 
007562 012706 001100 MOV #STACK,SP [LOAD THE STACK POINTER 

108 007566 INCSK: 

109 007566 004037 027264 JSR RO,CALL.B ;G0 EXECUTE THE COMMAND 

110 007572 063737 002332 045510 ADD IC DPB. B+12 “MOVE TO NEXT CYLINDER 

111 007600 023737 002330 045510 CMP LC,D0PB.B+12 ‘OUT OF CYLINDERS? 

112 007 002 ? BGE INCSK :NO=-BRANCH 

113 00761 013737 002330 045510 MOV LC,DPB.B+12 

114 007616 012737 007616 001124 MOV #. .SLPERR :SETUP THE ERROR LOOP ADDRESS 
007624 012706 001100 MOV #STACK, SP “LOAD THE STACK POINTER 

115 007630 DECSK: 


CZRMVAO RMOS/3/2 EXT'D 
T INCREMENT/ SEEK 


007654 


130 


BESEERR 
NRooonne 
ooo o-oo 


SSSS8S 
Seoerees 


SOOSoSeoesese sess esses 
ooo 


tt te as ts ss ws os SE 


Ss 


@BNOONOUFSWw HO OD NWwh— 
a 
No 


ee eee eee eee 
WOES FEE WA WWW 


1es73t 


~~ 


000004 


aes? 


SOW 
SN WWW WOW 


SN SSNSNS ONO NO 


& 


o-oo OoO-— 
= 
o 
— 


= 
iv 
ne 
, 
o 


104403 


rer 
MMR Mw 


Sone wwe AN ON ~ 


oooo 
ot ot 


oor 


DR TST 
TEST 


001534 
010074 
000003 


000003 
016000 


046253 
001240 


seseseses 


uso 
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001330 


001116 


001124 


001240 
171212 


EXIT2: 


BL 
SCOPE 


SEQ 0070 
;GO EXECUTE THE COMMAND 


;CALL SCOPE ROUTINE 


SL RAAMKeReRAReKeeeeeeeeeeeKeKeteHeeHeHeAeKeAKKeeKReteeeeeteenetes 


STEPPING SEEK TEST 


;*TE 


s*TEST 3 
;*THIS rest WILL 


COMMAND SEEK CYCLES TO CYLINDER 0, 1 
. 16, 32, 64, 128, 256 AND 512. AT THE COMPLETIO 
;*SEEK COMMAND THE PROPER INDICATORS ARE EXAMINED TO ENSURE 


:*PROPER OPERATION. 


—WERARBARARAASAALAAAASAAALASLEASLALARASESERAREE ESE RES ERR R SEER RRR RRR REESE 


TST3: 


1$: 


TESTS: 


EXI13: 


BL 
SCOPE 


BITS+<3#2>,1TSTNMS 
+6 ;BR 


TS14 


#3,STSTNM 
PC,LODPRM 
#TEST3,SLPERR 
RPT, STIMES 
#25. ,SERMAX 
#3,$TESTN 


#SW12,aSWR 
-+16 


MSGTST 
TESTN,=(SP) 


$ 
P 
PB.B+11 
13, BYPASS 
P 
L 


—DaAwDDae-DA22a7 B27 "2 OF WH 
Ooms 


nf O —" Ws 


’ a, 4, 
OF EACH 


;D0 THIS TEST? 
: F YES 
3NO--JUMP TO TESTS 


;SET TEST #3 AND CLEAR (SERFLG) 
;LOAD THE PARMETERS FOR THE TEST 
;SETUP THE LOOP ON ERROR ADDRESS 
;GET THE ITERATION COUNT 

;MAX ERRORS ALLOWED FOR TEST 
::SET TEST NUMBER IN APT MAIL BOX 


; INHIBIT TYPING TEST NUMBER ? 
;BR IF YES 


;TYPE ‘TEST* 

;;SAVE STESTN FOR TYPEOUT 
3:G0 TYPE--OCTAL ASCII 

sz TYPE 2 DIGIT(S) 

:: SUPPRESS LEADING ZEROS 


4 1 ial TEST LOOP ADDRESS 


ahT 
360 TO BYPASS ON ERROR 


stCc 
;SETUP THE ERROR LOOP ADDRESS 
;LOAD THE STACK POINTER 

3G0 EXECUTE THE COMMAND 
sCYLINDER 1 

;SETUP THE ERROR LOOP ADDRESS 
;LOAD THE STACK POINTER 
;DESIRED CYLINDER 

3GO EXECUTE THE COMMAND 

sMOVE TO NEXT CYLINDER 

; DONE? 


;NO--LOOP 
;CALL SCOPE ROUTINE 


'WEABBBEBZABSZASZASAASARSSARSRRRRARARRRR RE RRR RRR RRR RRR RRR RRR R RR RR RARE E SS | 


OSCILLATING SEEK TEST 


TeTEST 4 
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14 CSCILLATING SEEK TEST SEQ 0071 


:eTHIS TEST WILL, COMMAND SEEK CYCLES FROM “FC” TO ‘NC’. AND BACK 

#70 “FC™.  NC™ STARTS AND, INCREMENTS BY “1C’) UP TO CYLINDER 
THEN T$ DECREMENTED BY “IC™ BACK 10 CYLINDER “FC. AT THe 

SSCONPLETION, OF EVERY SEER COMMAND THE PROPER INDICATORS ire 

;*EXAMINED TO ENSURE PROPER OPERATION 


RITITITITITITITI TITTLE TTLTLI ELIT LLL LLL 


010074 ié1a: 
010074 000240 NOP 
010076 033737 001536 001330 BIT BITS+#<4#2>, TSTMS :D0 THIS TEST? 
010104 001002 BNE +6 R IF YES 
010106 000137 010506 JMP TST5 NO==JUMP TO TESTS 
010112 012737 000006 001116 MOV #4, $TSTNM :SET TEST #4 AND CLEAR (SERFLG) 
010120 004737 026672 JSR PC, LODPRM [LOAD THE PARMETERS FOR THE TEST 
010126 012737 010244 001124 MOV WTESTG,S$LPERR :SETUP THE LOOP ON ERROR ADDRESS 
010132 013737 002324 001220 MOV RPT, STIMES [GET THE ITERATION COUNT 
010140 112737 000031 001131 MOVB #25.,$ERMAX :MAX ERRORS ALLOWED FOR TEST 

a 010146 012737 000004 001240 MOV #4, $TESTN +:SET TEST NUMBER IN APT MAIL BOX 
010154 032777 010000 170772 BIT wsul2, aSwR ;INHIBIT TYPING TEST NUMBER ? 
010162 001406 BEQ +16 R IF YES 
010164 104401 046253 TYPE Gist “TYPE ‘TEST! 
010170 013746 001240 MOV giscist -(SP) +:SAVE $STESTN FOR TYPEOQUT 
010174 104403 TYPOS +:G0 TYPE--OCTAL ASCII 
010176 002 .BYTE 2 t:TYPE 2 DIGIT(S) 
010177 000 “BYTE 0 >: SUPPRESS LEADING ZEROS 

160 910200 0127 7 010206 001122 MOV #1$,$LPADR :SETUP LOOP ADDRESS 

161 010206 113737 002342 045506 1$: MOVB FS. OPB.B+10 “FS 

162 010214 113737 002334 045507 MOVB T.DPB.B+11 SFT 

170 010222 012737 010504 001346 MOV yexi Te, BYPASS :GO TO EXIT4 ON ERROR 
010230 005002 CLR R [CLEAR STALL SWITCH (NO STALL) 
010232 032737 010000 001314 BIT #SW12,C.SWR ‘STALL REQUIRED? 
010240 001401 BEQ TESTS *NO--BRANCH 
010242 005102 COM R SYES=-SET SWITCH 
010244 TESTS: 

171 010244 013701 002326 MOV FC,R1 NC TO FC 

172 010250 005037 001434 CLR STALLO :START AT “TERO IF STALLS REQUIRED 

173 010254 012737 010254 001124 MOV #.,SLPERR sSETUP THE ERROR LOOP ADDRESS 
010262 012706 001100 MOV #STACK, SP : LOAD THE STACK POINTER 

174 010266 010137 045510 1$: MOV R1,0PB.B+12 

175 010272 004037 027264 JSR RO.CALL.B ‘60 EXECUTE THE COMMAND 

176 010276 005702 TST 2 *STAL LL? 

177 010300 001403 BEQ 2$ :NO--BRANCH 

178 010302 004037 030664 JSR RO, STALL *YES-GO TO STALL ROUTINE 

179 010306 001434 -WORD STALLO iTIME POINTER 

180 010310 013737 002326 045510 28: MOV FC,0PB.B+12 FC 

181 010316 004037 027264 JSR -CALL.B £60 EXECUTE THE COMMAND 

182 010322 Opies TST STALL? 

183 010324 00141 BEQ 3$ ‘NO--BRAN CH 

184 HTt33 004037 030664 JSR RO,STALL 3s YES--G0 9 STALL ROUTINE 

185 010332 0014 -WORD STALLO Time POINTER 

186 010334 005237 001434 INC STALLO ;UPDATE THE TIME 

187 010340 023737 001460 001434 CMP MXSTAL,STALLO ;TIME 10 B1G? 

188 010346 003547 BGT 1$ NO--BRANCH 

189 010350 037 001434 CLR STALLO YES=-START OVER AT ZERO 

190 010354 701 002332 3$: ADD IC,R1 :MOVE TO NEXT CYLINDER 


pane RMO5S/3/2 
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CSCILLATING SEEK TEST SEQ 0072 
191 010360 020137 002330 CMP R1,LC ;LAST CYLINDER COMPLETED? 
+S 010364 003740 BLE 1$ ;NO--BRANCH 
19 810568 013701 002330 MOV LC,R1 ;SET NC_TO LC 
194 010372 012737 010372 (01124 MOV #. ,SLPERR ;SETUP_THE ERROR LOOP ADDRESS 

910400 012706 001100 MOV MSTACK,SP ;LOAD THE STACK POINTER 
195 010404 010137 045510 4$: MOV R1,DPB.B+12 iN 
196 010610 004037 027264 JSR RO,CALL.B :GO EXECUTE THE COMMAND 
197 010414 005702 TST R2 ; STALL? 
198 010416 001405 BEQ 5$ ;NO--BRANCH 
199 010420 004037 030664 JSR RO,STALL ;YES--GO TO STALL ROUTINE 
200 010424 001434 -WORD STALLO :TIME POINTER 
201 010426 013737 002330 045510 58: MOV LC,DPB.B+12 LC 
202 010434 004037 027264 JSR RO,CALL.B :GO EXECUTE THE COMMAND 
203 010440 eth | TST R2 ; STALL? 
204 010442 00141 BEQ 6$ 3NO--BRANCH 
205 010444 004037 030664 JSR RO,STALL :YES--GO TO STALL ROUTINE 
206 010450 001434 «WORD STALLO ;TIME POINTER 
207 010452 005237 001434 INC STALLO ;UPDATE STALL TIME 
208 010456 023737 001460 001434 CMP MXSTAL,STALLO ;TIME TOO BIG? 
209 010464 003347 BGT 4$ ;NO--BRANCH 
210 010466 005037 001434 CLR STALLO ;YES--SET STALL TIME BACK TO ZERO 
211 010472 163701 002332 6$: SUB iC,R1 sNEXT CYLINDER 
212 010476 020137 002326 CMP R1,FC ; DONE? 
213 010502 002340 BGE 4$ ;NO--BRANCH 
ie 010504 000004 EXIT4: SCOPE ;CALL SCOPE ROUTINE 
226 
227 SL eeeweeeeeneneeerereeeeteteeeteeeKeeeeeeeteeeeeteeeReeeeeetAee 

s*TEST 5 CONVERGING/DIVERGING SEEK TEST 


:*THIS TEST WILL CAUSE THE DRIVE TO EXECUTE FORWARD AND REVERSE 
s*SEEKS FROM "'NC1"' AND ‘"'NC2"' RESPECTIVELY, ‘'NC1"' WILL BE INCREMENTED 
:*BY "‘IC’’ AND "'NC2"' WILL BE DECREMENTED BY “‘IC’* UNTIL “'NC1"’ IS 
;*GREATER THAN THE INITIAL VALUE OF ‘'NC2"’ AND ‘'NC2"' IS 

s*LESS THAN THE INITIAL VALUE OF ‘'NC1"’. AT THE COMPLETION OF 

:*EACH SEEK COMMAND THE PROPER INDICATORS ARE EXAMINED TO 

;*ENSURE PROPER OPERATION. ‘‘NC1"' AND ‘'NC2"’ DEFAULT TO 

3*"'FC’’ AND ‘LC’ RESPECTIVELY. 


seeker edeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeKeReteeeeeeteteteeeeteeee 


010506 S15: 
010506 000240 NOP 
010510 033737 001540 001330 BIT B1TS+<5#2>,TSTNMS :D0 THIS TEST? 
010516 001002 BNE +6 <BR IF YES 
010520 000137 010732 JMP TST6 sNO--JUMP TO TEST6 
010524 012737 000005 001116 MOV #5, $TSTNM :SET TEST #5 AND CLEAR ($ERFLG) 
010532 004737 026672 JSR PC,LODPRM sLOAD THE PARMETERS FOR THE TEST 
010536 012737 010642 001124 MOV #TESTS,SLPERR ;SETUP THE LOOP ON ERROR ADDRESS 
010544 013737 002324 001220 MOV RPT, STIMES sGET THE ITERATION COUNT 
010552 112737 000031 001131 MOVB #25. ,SERMAX sMAX ERRORS ALLOWED FOR TEST 

228 010560 012737 000005 001240 MOV #5, STESTN 3:SET TEST NUMBER IN APT MAIL BOX 
010566 032777 010000 170360 BIT #SW12,aSWR ; INHIB!T TYPING TEST NUMBER ? 
010574 001406 BEQ +16 sBR IF YES 
010576 104401 046253 TYPE MSGTST sTYPE ‘TEST’ 
010602 013746 001240 MOV $TESTN,-(SP) +:SAVE STESTN FOR TYPEQUT 
010606 104403 TYPOS 3:G0 TYPE--OCTAL ASCII 
010610 002 BYTE 2 si TYPE 2 DIGIT(S) 


010611 
229 010612 
230 010620 
231 010626 
235 010634 
010642 
236 010642 
237 010646 
238 010652 
010660 
239 010664 
240 010670 
241 010674 
242 010700 
243 010704 
244 010710 
245 010714 
248 010720 
249 010722 
250 010726 
251 010730 
252 
261 
262 
010732 
010732 
010734 
010742 
010744 
010750 
010756 
010762 
010770 
010776 
011004 
263 
011012 
011020 
011022 
011026 
011032 
011034 
011035 
264 011036 
265 011044 
266 011052 


000 


pa ner oer or eee a es 
SNS NNO NEN SONG 


o— OoooocKeo o-oo 
RooeolS 
pete nt Ap eta tet fe ote Www 


o-COWwW —]]—0— COW 
FWF=FM wNRWRHENDY CWO 


. RMVAO RMOS/3/2 EXT'D DR TST 


Soooooooooeo OoOoooO 
SOnNeNusfo-oo —CcCo— 


001542 
011222 
000006 


000006 
010000 


046253 
001240 
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CONVERGING/DIVERGING SEEK TEST 


001124 


001330 


001116 
001124 


001240 
170134 


001122 
045506 
045507 


BYTE 0 ;:SUPPRESS LEADING ZEROS 
MOV #1$, $LPADR ;SETUP LOOP ADDRESS 
1$ MOVB =~ FS ,0PB.B+10 IFS 
MOVB = FT. DPB.B+11 TFT 
eng, WEXITS,BYPASS :G0 TO EXITS ON ERROR 
Mov FC,RI :START NC1 AT FC 
MOV LC,R2 [START NC2 ATL 
MOV #. .SLPERR : SETUP THE ERROR LOOP ADDRESS 
MOV WSTACK, SP ;LOAD THE STACK POINTER 
1$ Mov R1,0PB.B+12 
JSR RO,CALL.B £60 EXECUTE THE COMMAND 
MoV R2,0PB.B+12 
JSR RO.CALL.B £60 EXECUTE THE COMMAND 
ADD 1C;R1 SNEXT 
SUB IC, R2 NEXT Ne 
CMP R1,LC : DONE? 
BGT EXITS :YES=-BRANCH 
CMP R2,FC 2 
BGE 1$ :NO=-BRANCH 
EXITS: SCOPE ZCALL SCOPE ROUTINE 
SERRA A EAA AEE ETEK KReKAAeKeAKeKeeeeeeeeeee 
TATEST 6 ,SERVO ADDRESSING LOGIC NOISE GENERATOR 


:*IN THIS TEST A 


SEEK IS DONE TO 


L ‘'NC'’ THEN A SEEK 


TO 
:*NC+4 THEN NC+1 THEN NC+3 THEN Nese THEN NC#5. NOW ‘'NC’’ IS UPDATED 
:*BY “IC’' AND THE ABOVE SEQUENCE IS REPEATED UNITL ‘LC’ IS 
i #EXCEEDED BY ANY OF THE ABOVE VALUES. THE INITIAL VALUE OF ‘NC’ 
*1S ‘'FC’'. AT THE COMPLETION OF EACH SEEK COMMAND THE 
; *PROPER INDICATORS ARE EXAMINED TO ENSURE PROPER OPERATION. 


peeeekeeekeeeeeeeeeeeeeeeeeeeeekeeteeheneeeaeeeeeeteteeeeeeee eee 


i816: 


JMP S17 


MOV #6, pide 

JSR PC,LODPRM 

MOV #TESTO, SLPERR 
MOV RPT ,STIMES 
MOVB #25. , SERMAX 
MOV #6,STESTN 


BIT #SW12,aSWR 
yee 


BEQ 

TYPE 1ST 

MOV gisetst -(SP) 

TYPOS 

.BYTE 2 

"BYTE 0 

MOV #1$,SLPADR 
1$ MOVB FS ,OPB.B+10 


MOVB FT.DPB.B+11 


BIT BITS+#<6*2>,1TSTNMS 
+6 7B 


;D0 THIS TEST? 
R IF YES 
3NO--JUMP TO TEST? 


SET TEST #6 AND CLEAR (SERFLG) 
;LOAD THE PARMETERS FOR THE TEST 
;SETUP THE LOOP ON ERROR ADDRESS 
GET THE ITERATION COUNT 

MAX ERRORS ALLOWED FOR TEST 
::SET TEST NUMBER IN APT MAIL BOX 


INHIBIT TYPING TEST NUMBER ? 
:BR IF YES 
sTYPE ‘TEST’ 
33 SAVE STESIN igh TYPEOUT 
:60 ases hry he SCI] 
::TYPE 2 DIGIT(S) 
:; SUPPRESS LEADING ZEROS 
7 LOOP ADDRESS 


TFT 


SEQ 0073 


6 
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16 SERVO ADDRESSING LOGIC NOISE GENERATOR SEQ 0074 
270 011060 012737 011220 001346 MOV WEXIT6,BYPASS  ;G60 TO EXIT6 ON ERROR 
011066 TEST6: 
271 011066 013701 002326 MOV FC,R1 sPICKUP ‘'FC"’ 
272 011072 013702 002330 MOV LC,R2 ;FORM LAST CYLINDER THAT 
273 011076 162702 000005 SUB #5 Re :1S_AVAILABLE FOR TESTING 
274 011102 012737 011102 001124 MOV #. ,SLPERR ;SETUP_THE ERROR LOOP ADDRESS 
011110 012706 001100 MOV ASTACK,SP [LOAD THE STACK POINTER 
275 011114 020102 1$: CMP R1,R2 LAST CYLINDER 
278 011116 003040 BGT EXIT6 : YES~-BRANCH 
279 011120 010137 045510 MOV R1,0PB.B+12 
280 011124 004037 027264 JSR RO,CALL.B 360, EXECUTE THE COMMAND 
281 0111350 062737 000004 045510 ADD #4,0PB.B+12 
282 011136 004037 027264 JSR RO,CALL.B 60. EXECUTE THE COMMAND 
283 011142 162737 000003 045510 SUB #3,0PB.B+12 NC+ 
284 011150 004037 027264 JSR RO,CALL.B :60, EXECUTE THE COMMAND 
285 011154 062737 000002 045510 ADD #2,0PB.B+12 
286 011162 004037 027264 JSR RO,CALL.B £60. EXECUTE THE COMMAND 
287 011166 162737 000001 045510 SUB #1,0PB.B+12 
288 011174 004037 027264 JSR RO,CALL.B 60, EXECUTE THE COMMAND 
289 011200 062737 000003 045510 ADD #3,0PB.B+12 +5 
290 011206 004037 027264 JSR RO,CALL.B £60 EXECUTE THE COMMAND 
291 011212 063701 002332 ADD IC,R1 
292 011216 00073 BR 1$ 
344 011220 000004 EXIT6: SCOPE ;CALL SCOPE ROUTINE 
303 
304 ‘3 ar. win ete a se eee 
*TEST 7 ANDOM SEEK TEST 
:*THIS TEST PERFORMS RANDOM SEEK OPERATIONS BETWEEN CYLINDERS ‘FC’ 
*"LC*, AFTER EACH SEEK, THE POSITION OF THE DRIVE IS VERIFIED BY 
¢ #READING A SECTOR FROM THE CURRENTLY ADDRESSED CYLINDER AND TRACK. 
:*THE TRACK ADDRESS IS INCREMENTED FOR EACH SEEK SO THAT VERIFICATION 
:*OF POSITIONING OCCURS USING EACH HEAD. TRACK ADDRESSES ARE INCREMENTED 
:*BETWEEN PARAMTERS ‘FT AND ‘LT’. 
ORR RARAARE EAE KKTAKKKKeKKKeKeAeKeKeetee eee Ae 
011222 ig17: 
011222 000240 NOP 
011224 033737 001544 001330 BIT BITS*<?ee>, TSTNMS ;D0 THIS TEST? 
011232 001002 BNE :BR IF 
011234 000137 011620 JMP isT10 NO==JUMP TO TEST10 
011240 012737 000007 001116 MOV #7, STSTNM sSET TEST #7 AND CLEAR (SERFLG) 
011246 004737 026672 JSR PC,LODPRM ;LOAD THE PARMETERS FOR THE TEST 
011252 012737 011362 001124 MOV MTEST7,SLPERR ;SETUP THE LOOP ON ERROR ADDRESS 
011260 013737 002324 001220 MOV RPT ,STIMES :GET THE ITERATION COUNT 
011266 112737 000031 001131 MOVB #25. ,SERMAX ;MAX_ ERRORS ALLOWED FOR TEST 
305 011274 012737 000007 001240 MOV #7, STESTN 33;SET TEST NUMBER IN APT MAIL BOX 
011302 032777 010000 167644 BIT #SW12,aSWR : INHIBIT TYPING TEST NUMBER ? 
011310 001406 BEQ -+16 :8 IF YES 
011312 104401 046253 TYPE MSGTST TYPE TEST" 
011316 013746 001240 MOV $TESTN,-(SP) SAVE STESTN FOR TYPEQUT 
011322 104403 TYPOS 3:G0 TYPE--OCTAL ASCI! 
011324 00 BYTE 2 si TYPE 2 DIGIT (§) 
011325 v00 BYTE 0 ;; SUPPRESS LEADING ZEROS 
306 011326 113737 002334 045507 MOVB FT,OPB.B+11 ;LOAD STARTING TRACK ADDRESS 


CZRMVAO RMOS/3/2 EXT'D DR TST 
7 ANDOM S$ ST 
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R EEK TE SEQ 0075 

307 011334 112737 000105 045460 MOVB WSEEK,DPB.A+2 ;SEEK=COMMAND 

308 $1303 $1804 037066 MOV RMADR ,R4 s;UNIBUS ADDRESS OF THE RH/RM 

313 0113466 012737 011616 0013 MOV WEXIT?,BYPASS ERROR TERMINATION ADDRESS 
O11 825 012737 011362 001122 rest? MOV WTEST7,$LPADR ;SETUP THE LOOP ON TEST ADDRESS 

314 011365 Ot e706 001100 MOV MSTACK,SP SETUP THE STACK POINTER 

315 011366 013737 002326 045510 MOV FC,DPB.B+12 INITIAL CYLINDER ADDRESS 

316 011374 023737 002326 002330 CMP FC,LC CYLINDER LIMITS THE SAME ? 

317 011402 boa 85 BEQ ;BR IF THEY ARE 

318 011404 004737 025550 JSR PC, SRAND ;CYCYLE THE RANDOM NUMBER GENERATOR 

319 011410 013746 025646 MOV SHINUM,=(SP) ;USE_THE HIGH RANDOM NUMBER 

320 011414 005046 CLR -(SP) ; UPPER DIVIDEND 

321 011416 013746 002330 MOV LC,~(SP) ;FORM THE DIVISOR 

322 011422 005216 INC (SP) ; INCREMENT 

323 011424 163716 002326 SUB FC, (SP) ;SUBTRACT THE LOWER LIMIT 

324 011430 004737 025652 JSR PC,$D01V sDIVIDE 

325 011434 062637 045510 ADD (SP)+,DPB.B+12 ;ADD THE REMAINDER TO THE INITIAL CYLINDER 

326 011440 005726 TST (SP)+ ;DISCARD THE QUOTENT 

34 bes 013737 045510 045470 1s MOV DPB.B+12,DPB.A+12 :COPY NEW CYLINDER ADDRESS 
011450 012737 011450 001124 MOV #.,SLPERR ;SETUP_THE ERROR LOOP ADDRESS 
011456 012706 001100 MOV WSTACK,SP LOAD THE STACK POINTER 

329 011462 004037 027132 JSR RO,CALL.A :GO_ EXECUTE THE COMMAND 

330 011466 012737 011466 001124 MOV #.,SLPERR ;SETUP_ THE ERROR LOOP ADDRESS 
011474 012706 001100 MOV STACK ,SP ;LOAD THE STACK POINTER 

331 011500 113764 045456 000010 MOVB DPB.A,RMCS2(R4) ;SELECT THE DRIVE 

332 011506 016446 000020 MOV RMLA(R4),-(SP) ;GET THE LOOK AHEAD REGISTER 

$37 011512 006316 ASL (SP) sALIGN THE SECTOR ADDRESS 

34 011514 006316 ASL (SP) sALIGN THE SECTOR ADDRESS 

335 011516 000316 SWAB (SP) :PUT ADDRESS IN LOWER BYTE 

336 011520 105766 000001 TSTB 1(SP) :IN THE 1ST 20% OF SECTOR ? 

337 011524 001401 BEQ 2$ :BR IF YES 

338 011526 105216 INCB (SP) : INCREMENT THE SECTOR ADDRESS 

339 011530 105216 2$: INCB (SP) : INCREMENT THE SECTOR ADDRESS 

340 011532 112637 045546 MOVB (SP)+,DTADPB+10 ;LOAD THE DPB 

341 011536 013746 002456 MOV PRMLMT+24,-(SP) ;PUT LAST SECTOR ADDRESS ON THE STACK 

342 011542 005216 INC (SP) ; INCREMEN 

343 011544 122637 045546 CMPB (SP)+,DTADPB+10 ;NEW SECTOR ADDRESS TOO LARGE ? 

344 011550 103007 BHIS 4$ :BR IF NOT 

345 011552 103403 BLO 3$ :BR IF ADDRESS IS 2 GREATER 

346 011554 105037 045546 CLRB DTADPB+10 :RESET TO SECTOR ADDRESS 0 

347 011560 000403 BR 4 ; CONT INUE 

8 011266 112737 000001 045546 nm MOVB #1,DTADPB+10 sRESET ADDRESS TO SECTOR 1 
011570 004037 027264 JSR RO,CALL.B :GO EXECUTE THE COMMAND 

350 011574 105237 045507 INCB DPB.B+11 : INCREMENT THE TRACK ADDRESS 

351 011600 123737 045507 002336 CMPB DPB.B+11,LT s:MAXIMUM ? 

354 011606 101403 BLOS EXIT? :BR IF NOT 

355 011610 113737 002334 045507 MOVB FT,OPB.B+11 RELOAD STARTING TRACK ADDRESS 

329 011616 000004 EXIT7: SCOPE CALL SCOPE ROUTINE 

79 

Sp jp eeeeeeeeeaaeeeeeeeeeeeeeeeeee eee eee Ket eeee eee ee eee ee 

;*TEST 10 SERVO SETTLE DOWN TEST 


S*THIS TEST VERIFIES THAT THE SERVO HAS SETTLED DOWN AND THAT 
:*THE DRIVE IS ON CYLINDER WHEN THE DRIVE INDICATES SEEK COMPLETE. 
;*RANDOM SEEKS ARE ISSUED BETWEEN CYLINDERS ‘NC1" AND ‘NC1+IC" 
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110 SERVO SETTLE DOWN TEST SEQ 0076 


s*("NC1" STARTS AT VALUE 'FC'). AT THE COMPLETION OF 1000 (10) SEEKS, 
:*"NC1' IS INCREMENTED BY VALUE ‘IC’ AND THE SEQUENCE IS REPEATED. 

; *THE TEST 1S COMPLETED WHEN 'NC1" HAS BEEN INCREMENTED BEYOND ‘LC’. 
yeWHEN THE SEEK COMPLETES, THE PROGRAM READS THE DRIVE'S LOOK-AHEAD 
*REGISTER (RMLA) TO DETERMINE THE ADDRESS OF THE SECTOR ROTATING "into 


:*POSITION. — THE PROGRAM THEN ISSUES A WRITE HEADER AND DATA COMMAN 
°* 

;*ERRORS IN THIS TEST INDICATE THAT THE SERVO SYSTEM NAY NOT BE ADJUSTED 
S*CORRECTLY, THAT THE DRIVE IS MALFUNCTIONING, OR THAT A PACK WITH 
;#MARGINAL SERVO TRACKS 1$ MOUNTED ON THE DRIVE. 


eTHIS TEST IS VALID ONLY IF THE OPERATION IS STARTED WITHIN A FEW 
;*HUNDRED MICRO-SECONDS AFTER SEEK DONE OCCURS. THE NECESSARY 

:*TIME DEPENDENT PARAMETERS OCCUR arettie ENOUGH WITHIN THE REQUIRED 
; *RANGE TO PERMIT THIS TEST TO BE EFFECTIVE. 


g AERA ARRAAREAE AEE AA AEE EEE EERE AAA EAREKEREREEKEE 


011620 ié110: 
011620 000240 NOP 
011622 033737 001546 001330 BIT BITS+<10*2>,TSTNMS 3;D0 THIS TEST? 
011630 001002 BNE +6 ;BR IF 
011632 000137 012750 JMP TST11 NO==JUMP TO TEST11 
011636 012737 000010 001116 MOV #10,$TSTNM sSET TEST #10 AND CLEAR (SERFLG) 
011644 004737 026672 JSR PC,LODPRM ;LOAD THE PARMETERS FOR THE TEST 
011650 012737 012052 001124 MOV MTESTIO,S$LPERR ;SETUP THE LOOP ON ERROR ADDRESS 
011656 013737 002324 001220 MOV RPT, STIMES GET THE ITERATION COUNT 
011664 Aster 000031 001131 MOVB #25. ,SERMAX :MAX rt oy ALLOWED FOR TEST 
381 011672 012737 000010 001240 MOV #10, $TESTN ;;SET TEST NUMBER IN APT MAIL BOX 
011700 032777 010000 167246 BIT “1 aSwR INHIBIT TYPING TEST NUMBER ? 
011706 001406 BEQ bs ;BR IF YES 
011710 104401 046253 TYPE GTST :TYPE TEST’ 
011714 013746 001240 MOV fais -(SP) 33 SAVE STESTN FOR TYPEOUT 
011720 104403 TYPOS G0 TYPE--OCTAL ASCII 
011722 003 BYTE 3 ::TYPE 3 DIGIT(S) 
011723 000 BYTE 0 :; SUPPRESS LEADING ZEROS 
358 oti es 012737 011732 001122 1s MOV #1$,$LPADR sSETUP THE LOOP ADDRESS 
011732 112737 000105 045460 MOVB WSEEK,DPB.A+2 =; SEEK=COMMAND 
384 011740 112737 000161 045540 MOVB WWRITE ,DTADPB+2 ; COMMAND 
385 011746 113737 002334 045547 MOVB FT ,DTADPB+11 TRACK ADDRESS FOR THE WRITE 
386 011754 013737 002326 045470 MOV FC,DPB.A+12 :CYLINDER ADDRESS FOR THE SEEK 
387 011762 013737 002326 045550 MOV FC,DTADPB+12 CYLINDER ADDRESS FOR THE WRITE 
388 011770 013737 002326 002356 MOV FC,NC1 sSTARTING CYLINDER 
389 011776 013737 002332 001446 MOV 1C,DELTA CYLINDER INCREMENT VALUE 
Sr 012004 012737 176000 045542 MOV #-<256.#4.>,DTADPB+4 WORD COUNT 
91 012012 012737 052776 045544 MOV WBUFFER .DTADPB+6 :BUFFER ADDRESS 
392 Bisnsy 005000 CLR RO PATTERN POINTER er PATTERN) 
393 012022 004737 032732 JSR PC,SETBUF SLOAD THE WRITE BUFFER 
94 012026 005001 CLR R1 CLEAR REGISTE 
95 012030 113701 045456 MOVB DPB.A,R1 sLOAD DRIVE ADDRESS 
012034 013704 037066 MOV RMADR ,R4 ;UNIBUS ADDRESS OF THE RH/RM 
397 012040 004737 044772 JSR PC, CLRQUE CLEAR THE ee ae QUEUES 
438 BiSoes 012737 012746 001346 enctes MOV WEXITIO,BYPASS ;ERROR EXIT FROM TEST 
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001124 
177776 


000000 
000010 
000034 


001364 
000000 


177776 
000012 


000010 
024600 


000000 


001124 


000001 


1$: 
2$: 


4$: 


5$: 


6$: 


TSTIOA: 


2$: 


#. ,SLPERR 
WSTACK,SP 
#PR7,PS 
CLKSTA 

3$ 


1$ 
aPKV,-(SP) 
* ttle 


@LKV,-(SP) 
LKV,=(SP) 


#TST10B,a(SP) 
#DORTI ,@RMVEC 


-, SEKTAR 
#CLR,RMCS2(R4) 
R R4) 


sRESELECT THE DRIVE 
. DC(R4) 
PB.A+12,CYL.D 


;SETUP_THE ERROR LOOP ADDRESS 
;LOAD THE STACK POINTER 

sSET PRIORITY TO 7 

;SEE WHICH CLOCK ON SYSTEM 
:BR IF NO CLOCK 

sBR IF KWil-t_ CLOCK 

;SAVE THE VECTOR 

canes THE VECTOR ADDRESS 


: CONTINUE 

sSAVE THE "L' CLOCK VECTOR 
sSAVE THE VECTOR ADDRESS 
;CHANGE THE VECTOR 

CHANGE THE RM VECTOR 
;LOAD THE SEEK TIMER 

:INIT THE MASSBUS 


CYLINDER ADDRESS 


;LOAD THE 
S ;CYLINDER ADDRESS FOR ERROR MESSAGE 
HE SEEK 


#SEEK ,RWCS1 (RA) START T 


Pp 
RMDS(R4) 
5$ 


#PR7,PS 
WERR,RMDS(R4) 
6$ 


#DPB.A,R2 
meal 


ACLR,RMCS2(R4) 
R1,RMCS2(R4) 


#ISR,ARMVEC 
CLKSTA 


#.,SLPERR 
#STACK,SP 


R1,RMCS2(R4) 
RMLA(R4) ,-(SP) 
(SP) 


(SP) 

(SP) 
#300,1(SP) 
23 

(SP) 


(SP) 
(SP)+,DTADPB+10 
PRMLMT+24,-(SP) 


(SP) 
(SP)+,DTADPB+10 
4$ 


3$ 
DTADPB+10 
4$ 


CLEAR THE PRIORITY 

HAS THE DRIVE FINISHED ? 

:BR IF IT HAS 

WAIT FOR THE OPERATION TO COMPLETE 


; CONTINUE 

CHANGE PRIORITY TO MAX 
ERROR ? 

:BR IF NOT 


:DPB POINTER 
:SAVE THE REGISTERS 


:INIT THE MASSBUS 
sRESELECT THE DRIVE 

;SETUP THE RM VECTOR 
sWHICH CLOCK 

:BR IF NONE 

RELOAD THE CLOCK VECTOR 
;CORRECT THE STACK POINTER 


;SETUP_THE ERROR LOOP ADDRESS 
;LOAD THE STACK POINTER 
s;SELECT THE DRIVE 

:GET THE LOOK AHEAD REGISTER 
sALIGN THE SECTOR ADDRESS 
sALIGN THE SECTOR ADDRESS 
:PUT ADDRESS IN LOWER BYTE 
:IN i 20% OR SECTOR ? 


SINCREMENT THE SECTOR ADDRESS 
SINCREMENT THE SECTOR ADDRESS 
‘LOAD THE DPB 


;PUT MAXIMUM SECTOR ADDRESS ON Ly cia 


: INCREMENT PAST THE MAXIMUM ADDRES 
:NEW a lh ADDRESS TOO LARGE ? 


<BR IF ADDRESS IS 2 GREATER THAN MAXIMUM 


sRESET TO SECTOR ADDRESS 
; CONTINUE 


SEQ 0077 
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RMVAO RMOS/3/2 EXT'D DR TST 
0 SERVO SETTLE DOWN TEST SEQ 0078 
457 012404 112737 000001 045546 3$: MOVB #1,DTADPB+10 ;RESET ADDRESS TO SECTOR 1 
458 aisét2 012703 045542 : MOV #DTADPB+4,R3 : POINTER 
459 012416 012764 000111 000000 MOV #ORVCLR,RMCS1(RG -CLEAR THE DRIVE 
460 012424 01 364 000002 MOV (R3)+,RMWC(RG) LOAD THE WORD COUNT 
461 012430 012364 000004 MOV (R3)+,RMBACR4) LOAD THE BUFFER ADDRESS 
462 012434 012364 000006 MOV (R3)+,RMDA(RG) :LOAD THE TRACK/SECTOR ADDR 
463 012440 005037 045554 CLR DTADPB+16 "DONE' IND 
464 012444 012737 045536 037000 MOV #DTADPB,TRNSWT :LOAD "TRANSFER' DPB ADDRESS 
465 012452 010137 037052 MOV RI, SADDRESS OF DRIVE TRANSFERING 
466 012456 112761 000001 036730 MOVB #1,DRVACT(R1) SET DRIVE ACTIVE INDICATOR 
467 012464 006301 ASL R1 ‘SHIFT DRIVE ADDRESS 
468 012466 o12761 001750 037032 HOV #1000. , TIMER(R1) a s SETUP THE OPERATION TIMER 
470 012476 On eseu 045540 000000 MOV DTADPB+2,RMCS1(R4) ZSTART THE OPERATION 
471 012506 005037 177776 CLR PS :CLEAR THE PRIORITY 
472 012510 004037 027710 JSR RO,DRVCL1 [WAIT FOR OPERATION TO COMPLETE 
473 012514 023727 001444 001750 S$: CMP SEKCNT,#1000. :FINISHED SEEKS ? 
474 012522 001026 BNE 6$ ‘BR IF NOT 
475 012524 005037 001444 CLR SEKCNT [CLEAR THE SEEK COUNT 
476 012530 063737 002332 002356 ADD 1C,NC1 *ADD THE INCREMENT 
477 012556 023737 002356 002330 CMP NCi,LC ‘EXCEEDED THE CYLINDER LIMIT ? 
512 12544 103100 BHIS EXIT10 ‘BR IF IT HA 
012546 013737 002330 001446 MOV LC,DELTA :GET THE NEXT ‘ZONE’ ADDRESS 
012554 163737 002356 001446 SUB NC1,DELTA [CHECK THE DIFFERENCE 
012562 023737 002332- 001446 CMP 1C,DELTA ‘DIFFERENCE GREATER THAN THE INCREMENT ? 
012570 101003 BHI 6$ ‘BR IF IT IS 
012572 013737 002332 001446 MOV 1C,DELTA ‘USE THE ICREMENT PARAMETER 
012600 005237 001444 6$: INC SEKCNT ‘COUNT THE NEXT SEEK 
012604 023737 002326 002330 CMP FC,LC ‘BEGINNING AND ENDING CYLINDERS THE SAME ? 
012612 001002 BNE 7$ ‘BR IF NOT 
012614 000137 012052 JMP TEST10 ‘BR IF THEY ARE 
012620 013737 002356 045470 7s: MOV NC1,DPB.A+12  : RESET THE CYLINDER ADDRESS * 
012626 004737 025550 JSR , SRAND sCYCLE THE RANDOM NUMBER GENERATOR 
012632 013746 025646 MOV SHINUM,-(SP) | SUSE THE HIGH RANDOM NUMBER 
012636 005046 CLR -(SP) “CLEAR THE UPPER DIVIDEND 
012640 013746 001446 MOV DELTA, -(SP) ‘FORM THE DIVISO 
012644 005216 INC (SP) INCREMENT 
012646 004737 025652 JSR PC, $DIV :DIVIDE 
012652 062637 045470 ADD (SP)+,DPB.A+12 :ADD THE REMAINDER TO THE INITIAL CYLINDER 
012656 005726 TST + “DISCARD THE QUOTENT 
012660 023737 045470 045550 CMP DPB.A+12,DTADPB+i2 :SAME CYLINDER SELECTED AS LAST TIME ? 
012666 001754 BEQ . WA 
012670 013737 045470 045550 MOV DPB.A+12,DTADPB+12 :COPY NEW CYLINDER ADDRESS 
012676 000137 012052 JMP TEST10 : CONTINUE 
012702 TST10B: 
012702 005337 001442 DEC SEKTMR sDECREMENT THE SEEK 
012706 001016 BNE 1$ [CONTINUE IF NOT DONE 
012710 012702 045456 MOV #DPB.A,R2 [DPB ADDRESS 
012714 004737 044310 JSR PC, SVRH70 “SAVE THE REGISTERS 
012720 104024 ' EMT 4 
012722 012764 000040 000010 MOV #CLR,RMCS2(R4) INIT THE MASSBUS 
012730 110164 000010 MOVB R1,RMCS2(R4)  :RESELECT THE DRIVE 
012734 016676 000002 000000 MOV 2($P) a<SP) TRESTORE THE CLOCK VE@TOR ADDRESS 
012742 000401 BR Ex1116 [ABORT THE TEST +. 
513 012744 000v02 1$: RT] RETURN 
31% 012746 000004 EXIT10: SCOPE ‘CALL SCOPE ROUTINE 
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TIO. SERVO SETTLE DOWN TEST SEQ 0079 - 

| 526 
527 mae. a ae oe ee ee 

TETEST 11 L SEEKS TEST 

SeTHIS TEST VERIFIES THAT THE DISK DRIVE CAN SEEK FROM EACH CYLINDER 

#10 ALL OTHER CYLINDERS. 


{BEGINNING WITH CYLINDER *FC', THE TEST SEEKS TO EACH CYLINDER 
*BETWEEN 'FC' AND "LC' FROM CYINDER ‘FC’. THE BEGINNING CYLINDER 

> *ADDRESS 1S" INCREMENTED AND THE TEST SEEKS BETWEEN THE NEW CYLINDER 

:*ADDRESS AND ALL CYLINDERS BETWEEN ‘FC’ AND ‘LC’. THE SEQUENCE 

s*CONTINUES UNTIL ALL CYLINDERS HAVE BEEN CHECKED. 


ETITITITIIITITTILI LIT IITT TTT E LTTE TTL TLL 


012750 TST11: 
012750 000240 NOP 
012752 033737 001550 001330 BIT BITS#<11#2>, TSTNMS :DO THIS TEST? 
012760 001002 BNE +6 :BR IF YES 
012762 000137 013214 JMP TST12 ‘NO = JUMP TO TESTI2 
012766 012737 000011 001116 MOV #11 »STSTNM :SET TEST #11 AND CLEAR (SERFLG) 
012774 004737 026672 JSR PC,LODPR SLOAD THE PARMETERS FOR THE TEST 
013000 012737 013134 001124 MOV #TESTII, SLPERR [SETUP THE LOOP ON ERROR ADDRESS 
013006 013737 002324 001220 MOV RPT, STIMES :GET THE ITERATION COUNT 
013014 112737 000031 001131 MOVB #25. ,SERMAX ;MAX ERRORS ALLOWED FOR TEST 
~ 013022 012737 000011 001240 MOV #11,$TESTN +;SET TEST NUMBER IN APT MAIL BOX 
013030 032777 010000 166116 BIT syle, aSwR : INHIBIT TYPING TEST NUMBER ? 
013036 001406 BEQ +16 ‘BR IF YES 
013040 104401 046253 TYPE TST ‘TYPE ‘TEST’ 
013044 013746 001240 MOV gisorst - (SP) >: SAVE STESTN FOR TYPEOUT 
013050 104403 TYPOS 3:60 ae pieivat ASCII 
013052 003 .BYTE 3 ::TYPE 3 DIGIT(S) 
013053 000 BYTE 0 3; SUPPRESS CEADING ZEROS 
529 013054 012737 013062 001122 MOV #1$,SLPADR ;SETUP THE LOOP ADDRESS 
530 013062 113737 002342 045506 15S: MOVB = FS, DPB..B+10 ‘SECTOR ADDRESS 
| 531 013070 113737 002342 045526 MOVB = FS,DPB.C+10 ;SECTOR ADDRESS 
532 013076 113737 002334 045507 MOVB FT. DPB.B+11 STRACK ADDRESS 
533 013104 113737 002334 045527 MOVB ~=-—« FT, DPB.C#11 STRACK ADDRESS 
534 013112 013737 002326 045510 MOV FC,DPB.B+12 TSTARTING CYLINDER ADDRESS 
535 013120 013737 002326 045530 MOV FC,DPB.C+12 :STARTING CYLINDER ADDRESS 
539 013126 012737 013212 001346 sais MOV #EXITII, COYPASS [TEST ABORT EXIT 
540 013134 012706 001100 1 MOV #STACK,SP :SETUP THE STACK POINTER 
013140 004037 027466 JSR RO,CALL.C :GO EXECUTE THE COMMAND 
542 913144 004037 027264 JSR RO,CALL.B 7GO EXECUTE THE COMMAND 
543 013150 063737 002332 045530 ADD 1C.DPB.C+12 S INCREMENT THE ENDING CYLINDER ADDRESS 
| 544 013156 023737 002330 045530 CMP LC.DPB.C+12 i CHECK IF EXCEEDING MAXIMUM 
| 545 013164 002565 BGE 1$ NOT 
| 546 013166 013737 002326 045530 MOV FC,0PB.C+12 RESET ENDING CYLINDER ADDRESS 
547 013174 063737 002332 045510 ADD 1C,DPB.B+12 SINCREMENT THE STARTING ADDRESS 
548 013202 023737 002330 045510 CMP LC.DPB.B+12 SEXCEEDING MAXIMUM ? 
549 013210 002353 BGE 1$ :BR IF NOT 
| 350 013212 000004 EXIT11: SCOPE [CALL SCOPE ROUTINE 
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TIMING TEST SEQ 0080 


} -SBTTL TIMING TESTS 
3 ATA LALLA LLG Ld 
4 s*THE TIMING TESTS WILL ENSURE THAT THOSE FUNCTIONS BEIN 
5 :*TIMED ARE WITHIN THE ieee SPECIFIED IN THE 5 Pe0se3/2 
6 et es SPECIFICAT 
7 s*THE SEEK TIMING WILL BE OPERTORNED USING EXPLICIT SEEK 
8 : *OPERATIONS. AT THE COMPLETION OF EACH OF THE TIMING 
» SOT eus THE MINIMUM, MAXIMUM AND AVERAGE TIMES WILL BE 
*@ m 
1} SEAIIITTTT TATA AAA AA AAA AAA AAA AAA AAA AA AA AA AAA TL 
28 
29 FRRAAARAAAAAHHEHTHHERET HEHE eeKeRkeAKeeRteeeeeeeeeeeneeeeeAReeeee 
tSTEST 12 ROTATIONAL SPEED TIMING TEST 
ieTHIS TEST WILL START A SEARCH TO CYLINDER ‘FC', TRACK ‘FT’, 
CTOR ‘FS*. AS SOON AS THE INTERRUPT OCCURS, THE GO BIT 
ie1§ SET AGAIN AND THE OPERATION IS TIMED. THIS PROCEDURE 
7*1S REPEATED 10 TIMES THEN THE AVERAGE TIME IS CALCULATED 
; AND CHECKED TO ENSURE IT IS WITHIN TOLERANCE: 
as RMOS/3: 
;* 16.67 MS/REV + OR = 2% IF 60HZ 
3° 16.67 MS/REV + OR = 2.5% IF 5OHZ. 
*® 
:* RMO2: 
:* 25.00 MS/REV + OR = 2% IF 60HZ 
‘9 25.00 MS/REV + OR = 2.5% IF SOHZ. 
: ; 'MABBAEBAABAZAZAALAAAZALEAARAALALAESALESEESESAE LAER RES ERRERERSSEE ESE | 
013214 TST12: 
013214 000240 NOP 
013216 033737 001552 001330 BIT BITS+#<12*2>,TSTNMS D0 THIS TEST? 
013224 001002 BNE +6 :BR IF YES 
013226 000137 014136 JMP TST13 yNO=-JUMP TO TEST13 
013232 012737 000012 001116 MOV #12,STSTNM ;SET TEST #12 AND CLEAR (SERFLG) 
013240 004737 026672 JSR PC,LODPRM SLOAD THE PARMETERS FOR THE TEST 
013244 012737 014136 001124 MOV #TST13,$LPERR ;SETUP THE ERROR LOOP ADDRESS 
013252 013737 002324 001220 MOV RPT, STIMES :GET THE ITERATION COUNT 
013260 112737 000031 001131 MOVB #25. , SERMAX [MAX ERRORS ALLOWED FOR TEST 
30 013266 012737 000012 001240 MOV #12,$TESTN 3;SET TEST NUMBER IN APT MAIL BOX 
013274 032777 010000 165652 BIT yt oun INHIBIT TYPING TEST NUMBER ? 
013302 001406 BEG R IF YES 
013304 104401 046253 TYPE GTST ‘TY PE ‘TEST’ 
013310 013746 001240 MOV gitsctst -(SP) +:SAVE $TESTN FOR TYPEOUT 
013314 104403 TYPOS 7:60 TYPE=-OCTAL ASCII 
Oi ea18 003 BYTE 3 si TYPE DIGIT(S) 
01331 000 BYTE 0 3; SUPPRESS LEADING ZEROS 
31 013320 005737 001340 TST CLKSTA sKW11-P CLOCK? 
2 013324 995008 BGT 1$ sYES=--START TEST 
5 Bigs $ st 014134 JMP EXIT12 ' ‘NO==J UMP TO EXIT12 
133 012737 013332 001122 1$: MOV #., SLPADR ;SETUP LOOP ADDRESS 
Si red 004u37 031110 JSR RO,SRCHOO [DO A MASSBUS INIT . RECAL 
B 0133544 900408 BR 23 :RETURN HERE IF NO ERROR 
60 013346 000137 (014134 JMP EXI1112 RETURN HERE IF ERROR 
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CZR C 
Tl2 ROTATIONAL SPEED TIMING TEST SEQ 0081 
013352 012737 013352 001122 28 MOV #. ,SLPADR sERROR LOOP ADDRESS 
01 112737 +38 04546 MOVB #SEEK,DPB.A+2 :SEEK=COMMAN 
01 00 9 7 045466 CLR DPB.A+10 [USE TRACK 0 & SECTOR 0 
01 72 13737 002326 045470 MOV FC,DPB.A+12 SSTARTING CYLINDER 
01 12737 0146136 001346 MOV WEXITI2,BYPASS :GO TO EXITI2 IF ERROR 
01 06 0040 7? 027132 JSR RO,CALL.A :G0 EXECUTE THE COMMAND 
01341 O13 64 002326 000034 MOV FC RMDC (RG) ZFC 
013420 013746 002342 MOV FS.=(SP) tFS 
013426 113766 002334 000001 MOvVB FT,1¢SP) sFT 
013432 ots spe MOV SP)*,RMDA(R4) ;LOAD FI/FS 
013436 012737 014134 001222 MOV wEXITI2,$ESCAPE :;ESCAPE TO EXIT12 ON ERROR 
013444 005005 CLR R5 ‘COUNT UP 
61 ;SETUP PARAMETER TABLE FOR RMOS/RMO3/RMO2 
62 013446 010046 MOV RO,-(SP) sSAVE RO 
63 013450 113700 045536 MOVB  DTADPB,RO ‘DRIVE ADDRESS 
64 013454 032737 000100 001314 BIT #SW06,C.SWR [CHECK CONTROL SWR FOR 60 HZ. 
65 013462 001425 BEQ 3$ ‘BR IF YES 
66 013464 012703 001636 MOV #17B1,R3 [LOAD 50 HZ. TABLE FOR RMO2 
67 013470 012737 001636 014124 MOV #17B1.1P50 ; 
68 013476 012737 001720 014132 MOV #SP7B1,TPSSO—_: 
69 013504 122760 036750 CMPB so #5,,DRVTYP(RO) :AN RMO2 DRIVE ? 
70 013512 001435 BEQ 4$ ‘BRANCH IF SO 
71 013514 012703 001616 MOV #17B,R3 [LOAD 50 HZ. TABLE FOR RMOS/3 
72 013520 012737 001616 014124 MOV #178, 1P50 ; 
73 013526 012737 001704 014132 MOV #SP7B,1PS50 : 
74 013534 000424 BR 4$ ZEXIT 
75 Or Seat Sig? 7 0016 016106 3$: MOV #T7A1,TP60 :LOAD 60 HZ. TABLE FOR RMO2 
76 013544 012737 00171 146114 MOV #SP7A1, TPS60 : 
77 013552 012703 001626 MOV #T7A1,R3 : 
78 013556 122760 000005 036750 CMPB «sos #S,,DRVTYP(RO) =: AN RMO2 DRIVE ? 
79 013564 001410 BEQ 4% ;BRANCH IF SO 
80 013566 612737 001606 014106 MOV #T7A,TP60 sLOAD 60 HZ. TABLE FOR RMO5S/3 
81 013574 012703 001606 MOV #T7A. : 
82 013600 012737 001676 014114 MOV #SP7A,TPS60 : 
83 013606 012600 4$: MOV (SP)+,R0 sRESTORE RO 
84 013610 000240 NOP EXIT 
87 013612 TESTI2: 
88 013612 012706 001100 MOV @STACK,SP sSETUP STACK 
89 013616 012701 000012 MOV #10.,R [TIME 10 SEARCHES 
90 013622 004737 031274 JSR PC, STRTMR s INITIALIZE THE TIMERS 
91 013626 012777 014014 165642 MOV #7$,aPKyv s;SETUP VECTOR IN CASE OF OVERFLOW 
92 013684 019777 031272 023226 MOV —«s#DORTI.@RMVEC SETUP RM VECTOR 
93 013642 005077 165636 1$: CLR aPKB SSTART COUNTING AT ZERO 
94 013646 012777 000131 165626 MOV #131 ,aPKCS SINT.EN., COUNT UP AT 100KHZ 
95 013654 012714 000131 MOV @SEARCH, (R4) sSTART A SEARCH 
96 013660 90001 WAIT ‘WAIT ON INTERRUPT 
97 013662 042777 000101 165612 BIC #101, aPKCS *STOP THE CLOCK 
98 013670 032764 040000 000012 BIT WERR_RMDS(RG) ERROR? 
99 01 % 001411 BEQ 2$ :NO--BRANCH 
100 013 104412 SAVREG SAVE RO-RS 
013702 912708 045536 MOV #DTADPB,R2 [DPB POINTER 
013706 004737 044310 JSR PC, SVRH?O [SAVE ALL THE RH/RM REGISTERS 
013712 004737 026072 JSR PCCNTCLR [G0 CLEAR CONTROLLER 
013716 104413 RESREG “RESTORE RO-RS 
101 013720 104017 EMT 17 
102 013722 005077 165556 2: CLR aPKe :START THE COUNT AT ZERO 
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T12 ROTATIONAL SPEED TIMING TEST SEQ 0082 
103 013726 012714 000131 MOV #SEARCH, (RG) :START A SEARCH 
104 013732 Oise ts ted 165542 MOV #131, ,aPKCS sSTART THE CLOCK 
105 013740 90001 WAIT [WAIT ON INTERRUPT 
106 013742 042777 000101 165532 BIC #101, aPKCS ‘STOP THE CLOCK 
107 013750 032764 040000 000012 BIT WERR.RMDS(RG) 31S “ERR=1°? 
108 013756 001411 BEQ 3$ :NO--BRANCH 
109 013760 104412 SAVREG [SAVE RO-RS 
013762 012708 045536 MOV #DTADPB,R2 [DPB POINTER 
013766 00473 044310 JSR PC, SVRH?0 ‘SAVE ALL THE RH/RM REGISTERS 
013772 004737 026072 JSR PC.CNTCLR 760 CLEAR CONTROLLER 
013776 104413 RESREG TRESTORE RO-RS 
110 014000 104017 EMT 17 
111 014002 004737 031336 3s: JSR PC, COUNT :UPDATE THE COUNT 
112 014006 005301 DEC RI + DONE ? 
113 014010 003314 BGT 1$ :NO=-BRANCH 
114 014012 000420 BR aS :YES==GO TO THE EXIT 
115 014014 042777 000101 165460 7s: BIC #101, aPKCS ‘STOP THE CLOCK 
116 014022 005037 177776 CLR PS ‘DROP THE PRIORITY 
117 014026 012600 MOV (SP)+,RO [PC OF WAIT#+2 
118 014030 005726 TST ($P)¢ [POP THE PS FROM THE STACK 
119 014032 104412 SAVREG ‘SAVE RO-R5 
014034 012702 045536 MOV #DTADPB,R2 [DPB POINTER 
014040 004737 044310 JSR PC, SVRH70 “SAVE ALL THE RH/RM REGISTERS 
014044 004737 026072 JSR PC.CNTCLR :G0 CLEAR CONTROLLER 
014050 104413 RESREG TRESTORE RO-RS 
120 014052 104020 EMT 20 
121 014054 004737 026072 BS: JSR PC, CNTCLR :G0 CLEAR CONTROLLER 
138 014060 906737 026156 JSR PC,ST.CLK sINITIALIZE THE CLOCK 
123 014064 012777 041740 022776 MOV #ISR ARMVEC ‘RESTORE RH/RM INT. VECTOR 
124 014072 032737 000100 001314 BIT #5W06,C.SWR 160 H2? 
138 014100 001007 BNE EXIT.A :NO-BRANCH 
014102 004037 031576 JSR RO, TYPTIM ‘TYPE THE TIMING 
014106 001606 1P60: T7A [TABLE ADDRESS 
014110 004037 031470 JSR RO, SPTYP [TYPE THE SPEC 
014114 001676 TPS60: SP7A 
014116 000406 BR EX1T12 SEXIT 
139 014120 004037 031576 EXIT.A: JSR RO, TYPTIM [TYPE THE TIMING 
140 014124 001616 TP50: 178 ‘TABLE ADDRESS 
141 014126 004037 031470 JSR RO, SPTYP : 
142 014132 001704 TPS50: $P7B ; 
143 014134 000004 EXIT12: SCOPE ‘CALL SCOPE ROUTINE 
153 
1594 ppeteeeeeeeeeenerererreeererrereeeeereneeeeKAeeeeeeReee eee eee Eee 
T*TEST 13 ONE CYLINDER SEEK TIMING TEST 
S*eTHIS TEST WILL COMMAND FORWARD SEEK CYCLES TO ADVANCE THE 
S*CYLINDER BY ONE UNTIL THE 'NCREMENT IS GREATER THAN THE 
[*CYLINDER 'LC', THEN REVERSE SEEK TO CYLINDER ‘FC’. TH 
:*TIME TO PERFORM EACH SEEK IS CHEC’ED TO ENSURE IT DOES NOT 
S*EXCEED THE MAXIMUM TIME PERMITTED FOR A ONE CYLINDER SEEK. 
:*THE TIME MUST BE LESS THAN 10MS. 
,s etek eeeeeeeeeereeeetereeereeteKeeeeteKeneeteneneeeeeeeeeeeeenes 
014136 18113: 
014136 000240 NOP 
014140 033737 001554 001330 BIT BITS+<13#2>, TSTNMS =DO THIS TEST? 
014146 001002 BNE +6 sBR IF Y 
014150 000137 614540 JMP TST14 *NO=-JUMP TO TEST14 
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113 CNE CYLINDER SEEK TIMING TEST SEQ 0083 
014154 012737 000013 001116 MOV #13,STSTNM :SET TEST #13 AND CLEAR (SERFLG) 
014162 006737 026672 JSR PC,LODPRM [LOAD THE PARMETERS FOR THE TEST 
014166 127 7 014640 001124 MOV #TSTIG,$LPERR :SETUP THE ERROR LOOP ADDRESS 
014174 013737 002324 001220 MOV PT, STIMES ‘GET THE ITERATION COUNT 
014202 112737 000031 001131 MOVB #25.,SERMAX [MAX ERRORS ALLOWED FOR TEST 
= 014210 012737 000013 001240 MOV #13, $TESIN :;SET TEST NUMBER IN APT MAIL BOX 
014216 032777 010000 164730 BIT #SW12,aSwWR ; INHIBIT TYPING TEST NUMBER ? 
014224 001406 BEQ +16 [BR IF YES 
014226 104401 046253 TYPE MSGTST :TYPE 'TEST* 
014232 013746 001240 MOV $TESTN,-(SP) | :;SAVE S$TESTN FOR TYPEOUT 
014236 104403 TYPOS +:60 TYPE=-OCTAL ASCII 
014240 003 .BYTE 3 Si: TYPE 3 DIGIT(S) 
014241 000 -BYTE 0 >: SUPPRESS LEADING ZEROS 
156 014242 005737 001340 TST CLKSTA sKW11-P CLOCK? 
157 014246 003002 BGT 1$ :YES==START TEST 
160 014250 000137 014636 JMP EX1T13 :NO=-JUMP TO EXIT13 
161 014254 012737 014254 001122 18: MOV #.,SLPADR ‘SETUP THE LOOP ADDRESS 
162 014262 004037 031110 JSR RO. SRCHOO :DO A MASSBUS INIT. AND RECAL 
163 014266 000402 BR 2$ ‘NO ERROR RETURN 
175 014270 000137 014636 JMP EX1T13 TERROR RETURN--SCOPE LOOP CALL 
014276 012737 014274 001122 28: MOV #.,SLPADR TERROR LOOP ADDRESS 
014302 112737 000105 045460 MOVB &#SEEK,DPB.A+2 :SEEK=COMMAND 
014310 005037 045466 CLR DPB.A+10 [USE TRACK 0 & SECTOR 0 
014314 013737 002326 045470 MOV FC,DPB.A+12 [STARTING CYLINDER 
014382 012737 01465 001346 MOV WEXITI3,BYPASS :GO TO EXIT13 IF ERROR 
014 004037 02713 JSR RO,CALL.A [GO EXECUTE THE COMMAND 
014334 012703 001646 MOV #T10,R3 ‘PARAMETER POINTER 
014340 012737 014636 001222 sine MOV WEXIT13,SESCAPE :;ESCAPE TO EXIT13 ON ERROR 
176 014346 012706 001100 MOV #STACK,SP :SETUP STACK 
177 014352 013737 002326 045550 MOV FC,DTADPB+12 :START WITH BEGINNING CYLINDER 
178 014360 005237 045550 INC DTADPB+12 sINCREMENT THE BEGINNING CYLINDER 
179 014364 005005 CLR RS :SET THE UP/DOWN SWITCH TO UP 
180 014366 006737 031274 JSR PC, STRTMR SINITIALIZE THE TIMERS 
181 014372 012777 014544 165076 MOV #7$,aPKV [SETUP INCASE OF OVERFLOW 
182 014400 012777 031272 022462 MOV #DORTI,@RMVEC  :SET RM VECTOR 
183 014406 005077 165072 1$: CLR aPKB :START THE COUNTER AT ZERO 
184 014412 013764 045550 000034 MOV DTADPB+12,RMDC(R4) sLOAD DESIRED CYLINDER 
185 014420 012714 000105 MOV #SEEK, (RG) :START A SEEK 
186 014424 012777 000131 165050 MOV #131, aPKCS ‘START THE CLOCK 
18? 014432 000001 WAIT ‘WAIT ON INTERRUPT 
188 014434 042777 000101 165040 BIC #101, aPKCS >STOP THE CLOCK 
189 014442 032764 040000 000012 BIT WERR.RMDS(RG) :ANY DISK ERRORS? 
190 014450 001411 BEQ 2$ :NO--BRANCH 
191 014452 1046412 SAVREG *SAVE RO-RS 
014454 01270¢ 045536 MOV #OTADPB,R2 [DPB POINTER 
0144660 004737 044310 JSR PC, SVRH?O [SAVE ALL THE RH/RM REGISTERS 
014464 004737 026072 JSR PC.CNTCLR :G0 CLEAR CONTROLLER 
014670 104413 RESREG TRESTORE RO-RS 
192 014472 104017 EMT 17 
193 014476 004737 031336 2$: JSR PC, COUNT :COUNT THIS SEEKS TIME 
194 014500 005705 ST R5 [UP OR DOWN? 
195 014502 001011 BNE 4$ : DOWN=-BRANCH 
196 0146504 005237 045550 3$: INC DTADPB+12 ‘MOVE TO NEXT CYLINDER 
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002330 


002326 


164730 


022246 


001330 


001116 


001124 


001240 
164226 


4$: 


7$: 


SP10 
EX1T13: SCOPE 


DTADPB+12,LC 
1$ 

#-1,R5 

1$ 

DTADPB+12 
DTADPB+12,FC 
1$ 

8$ 
alata 
(SP)+,RO 
(SP)¢ 
#OTADPB,R2 


PC, SVRH?0 
PC.CNTCLR 


0 

oe CNTCLR 
C,ST.CLK 

WIR, anivec 

RO, TYPTIM 


RO,SPTYP 


;OUT OF CYLINDERS? 
;NO--GO DO THE NEXT SEEK 
;SET UP/DOWN SWITCH TO DOWN 
;G0 DO THE NEXT SEEK 

:MOVE TO NEXT CYLINDER 

;OUT OF CYLINDERS? 

:NO=-GO DO THE NEXT SEEK 
:G0 TO THE EXIT 
;STOP THE CLOCK 

:DROP THE PRIORITY 

:PC OF WAIT¢ 

<4 8 p THE 4 FROM THE STACK 
‘DPB. POINTER 

:SAVE ALL THE RH/RM REGISTERS 
:GO CLEAR CONTROLLER 
sRESTORE RO-R5 


:GO0 CLEAR CONTROLLER 
INITIALIZE THE CLOCK 
RESTORE RH/RM INT. VECTOR 
:GO TYPE THE TIMES 
;POINTER 


;CALL +COPE ROUTINE 


PUeaeeeeeeeeeeeeeee eee eee eee eee KAA eee KEKE eee eee RRA Ree TRE eee 
ACCESS TIME MEASUREMENT TEST 

s*THIS TEST WILL COMMAND A FORWARD SEEK FROM CYLINDER "FC’ TO 
THEN A REVERSE SEEK FROM CYLINDER ‘LC’ TO 

BOTH SEEKS ARE TIMED AND CHECKED TO ENSURE THEY 


SeTEST 


>*CYLINDER ‘LC’, 
s*CYLINDER ‘FC’. 
:*ARE WITHIN THE TOLERANCE ALLOWED FOR THE ACCESS TIME MEASUREMENT. 


in) 


s*THIS SEQUENCE IS REPEATED 128 TIMES (FOR A_TOTAL OF 256 SEEKS). 
:*THE AVERAGE ACCESS TIME MUST BE LESS THAN 30 MS. 


: 'MARBARAARAAZLASAASALAARALARASAARERSAERRSE SER AS ARERR RES ESSER RRR RRR REED 


TST14: 


BITS+#<14#2>,1TSTNMS 
+6 :B 


TST15 


#14, ab A 
PC,LODPRM 


aTaT15, SLPERR 


ae SERMAX 
#14, $TESTN 


#SW12,aSWR 
+16 


"MSGTST 
$TESTN,-(SP) 


D0 THIS TEST? 
NO== JUMP TO TESTIS 


;SET TEST #14 AND CLEAR (SERFLG) 
;LOAD THE PARMETERS FOR THE TEST 
;SETUP THE ERROR LOOP ADDRESS 
:GET THE ITERATION COUNT 

:MAX_ ERRORS ALLOWED FOR TEST 
::SET TEST NUMBER IN APT MAIL BOX 


ta ae lag TEST NUMBER ? 


:TYPE "TEST* 

i: SAVE STESTN FOR TYPEOUT 

360 TYPE=-OCTAL ASCII 
TYPE 3 DIGIT(S) 

;;SUPPRESS LEADING ZEROS 


SEQ 0084 


CZRMVAO 
114 


RMO5/3/2 EXT'D DR TST 
ACCESS TIME MEASUREMENT 

230 014744 005737 001340 

231 014750 Bo n008 

234 014752 0001357 015376 

235 014756 012737 014756 

236 014764 004037 031110 

237 014770 i eg 

249 014772 0001 015376 
014776 012737 014776 
015006 112737 000105 
015012 005037 045466 
015016 013737 002326 
015024 012737 015376 
015032 004037 027132 
015036 012703 001656 
015042 012737 015376 
015050 

250 015050 012706 001100 

251 015054 012701 000200 

252 015060 004737 031274 

253 015064 012777 015304 

254 015072 012777 031272 

255 015100 005077 164400 

256 015104 013764 002330 

257 015112 012764 000105 

258 015120 012777 000131 

259 015126 000001 

260 See tthe 000101 

261 0151 032764 040000 

262 015144 001411 

263 015146 104412 
015150 012702 045536 
015154 004737 044310 
015160 004737 026072 
015164 104413 

264 015166 104017 

265 015170 005005 

266 015172 004737 031336 

267 015176 005077 164302 

268 015202 013764 2326 

269 015210 012764 000105 

270 015216 012777 000131 

271 013224 000001 

272 015226 042777 000101 

273 015234 032764 040000 

274 0152462 001411 

275 015244 104412 
0152466 012702 045536 
015252 004737 044310 
015256 004737 026072 
015262 104413 

276 015264 104017 

277 015266 012705 177777 

278 015272 004737 031336 

279 SEE H 005301 

280 015300 003277 

281 015302 000420 


H 7 
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TEST 


TST CLKSTA :Kwil=P CLOCK? 
BGT 1$ SYES==START TEST 
JMP EXI1T14 ‘NO=-JUMP TO EXIT14 
001122 1$: MOV #.,SLPADR :SET THE LOOP ADDR 
JSR RO. SRCHOO :D0 A MASSBUS INIT & RECAL 
BR 2$ :RETURN HERE IF NO ERROR 
JMP EX1T14 [RETURN HERE ON ERROR 
001122 28: MOV #.,SLPADR TERROR LOOP ADDRESS 
045460 MOVB #SEEK,DPB.A*+2 :SEEK=COMMAND 
CLR DPB.A+10 [USE TRACK 0 & SECTOR 0 
045470 MOV FC,DPB.A+12 [STARTING CYLINDER 
001346 MOV WEXITIG,BYPASS :GO TO EXIT14 IF ERROR 
JSR RO,CALL.A :GO EXECUTE THE COMMAND 
MOV #TI1,R3 ‘PARAMETER POINTER 
001222 eae MOV WEXITIG,SESCAPE :;ESCAPE TO EXIT14 ON ERROR 
MOV #STACK,SP :SETUP STACK 
MOV #128. ,R1 SREPEAT 'FC'="LC'="FC'"' 128 TIMES 
JSR PC, STRTMR SINIT. THE COUNTERS 
164404 MOV #7$,aPKV :SET UP VECTOR IN CASE OF OVERFLOW 
021770 MOV #DORTI,@RMVEC  ;SETUP RM VECTOR 
1$: CLR aPKB ‘START COUNT AT ZERO 
000034 MOV LC, RMDC(R4) :"MIDDLE' CYLINDER 
000000 MOV #SEEK,RMCS1(R4) :START A SEEK 
164354 MOV #131,aPKCS *START THE CLOCK 
WAIT ‘WAIT ON INTERRUPT 
164344 BIC #101, aPKCS :STOP CLOCK 
000012 BIT WERR-RMDS(RG)  : ERR=17 
BEQ 2$ :NO=-BRANCH 
SAVREG TSAVE RO-RS 
MOV #DTADPB, R2 [DPB POINTER 
JSR PC, SVRH70 [SAVE ALL THE RH/RM REGISTERS 
JSR PC.CNTCLR :G0 CLEAR CONTROLLER 
RESREG e TRESTORE RO-RS 
2$: CLR RS :SET UP/DOWN SWITCH TO UP 
JSR PC, COUNT [UPDATE THE COUNT 
CLR aPKB :START THE COUNT AT ZERO 
000034 MOV FC,RMDC(R4) ‘BEGINNING CYLINDER 
000000 MOV #SEEK,RMCS1(RG) :START A SEEK 
164256 MOV #131, aPKCS >START THE CLOCK 
WAIT :WAIT ON INTERRUPT 
164246 BIC #101, aPKCS ‘STOP THE CLOCK 
000012 BIT WERR.RMDS(RG)  :ERR=1? 
BEQ 3$ :NO=-BRANCH 
SAVREG SSAVE RO-R5 
MOV #DTADPB,R2 [DPB POINTER 
JSR PC, SVRH70 SSAVE ALL THE RH/RM REGISTERS 
JSR PC.CNTCLR 760 CLEAR CONTROLLER 
RESREG “ TRESTORE RO-R5 
3$: MOV #-1,R5 :SET UP/DOWN SWITCH TO DOWN 
JSR PC, COUNT [UPDATE THE COUNT 
DEC R1 : DONE? 
BGT 1$ *NO--BRANCH 
BR 8% SYES=-EXIT 


MVAO RMOS/3 
ACCESS 
282 015304 
283 015312 
284 015316 
285 015320 
- 286 015322 
015594 
0153 
015334 
015340 
287 015342 
288 015344 
289 015350 
290 015354 
291 015362 
015366 
292 015370 
293 015374 
294 015376 
295 
304 
305 
015400 
015400 
915402 
015410 
015412 
015416 
015424 
015430 
015436 
015444 
015452 
306 
015460 
015466 
015470 
015474 
015500 
015502 
015503 
307 015504 
308 015510 
311 015512 
312 015516 
313 015524 
314 015530 
326 015532 


oaQ~-oo — 
SSSSSF 3m 


EERE 


oO 

=SS 

mee 
WNW — UW 
ANN NOUS 


004 
001656 


frm Oo-WwOo 


SS LS=LSSS= Ssas 


-_—oO— 
o-oo 


DR TST 
ASUREMENT 
000101 
177776 


001560 
016140 
000015 


010000 


046253 
001240 


001340 
016136 
015516 
031110 


016136 


PP: 
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TEST 
164170 7$: 


BS: 
021506 


SP11 
EX1T14: SCOPE 


#101,aPKCS 
PS 


(SP)+,RO 
(SP)¢ 


#DTADPB,R2 
PC,SVRH?70 
PC.CNTCLR 


PC,CNTCLR 
PC,ST.CLK 
#1SR,ARMVEC 
RO, TYPTIM 


RO,SPTYP 


;STOP THE CLOCK 
;DROP THE PRIORITY 
:PC OF WAIT+2 

;POP_ THE PS FROM THE STACK 

s SAVE RO-R5 

;DPB_ POINTER 

SAVE ALL THE RH/RM REGISTERS 
:GO0 CLEAR CONTROLLER 

;RESTORE RO-R5 


:GO CLEAR CONTROLLER 
sINITIALIZE THE CLOCK 
RESTORE RH/RM INT. VECTOR 
:GO TYPE THE TIMES 
:POINTER 


;CALL SCOPE ROUTINE 


''WERABARBARAAAAAAAAAAASZAESLALALASALALESESESEE ESE RE RRR EERE SRR RR RSS ASE 


T*TEST 15 


s*CYLINDER ‘FC’. 
s*TIME. 


TST15: 


001330 


001116 
001124 


001240 
163466 


001122 1%: 


MAXIMUM SEEK TIMING TEST 

:*THIS TEST WILL COMMAND A FORWARD SEEK FROM CYLINDER ‘FC’ TO 
s*CYLINDER ‘LC’, THEN A REVERSE SEEK FROM CYLINDER ‘LC’ TO 
BOTH SEEKS ARE TIMED AND CHECKED TO ENSURE 
:*THEY ARE WITHIN THE TOLERANCE ALLOWED FOR THE MAXIMUM SEEK 
bee Seaees SEQUENCE 1S REPEATED 128 TIMES (FOR A TOTAL OF 
*@ “ 


SEPARA ARARA RARER eRKAKKKKKAeeKeAKeKekeeteeKe Kee 


BITS+#<15*2>,TSTNMS 
+6 7B 


TST16 
#15, $TSTNM 
P PR 


#25. ,SERMAX 
#15. $TESIN 


#SW12,aSWR 
+16 


“MSGTST 
$TESTN,-(SP) 


1115 
. -SLPADR 
| 


,LODPRM 
#TST16,$LPERR 
T,STIMES 


THE MAXIMUM SEEK TIME MUST BE LESS THAN 54 MS. 


;D0 THIS TEST? 
:BR IF YES 
;NO--JUMP TO TEST16 


;SET TEST #15 AND CLEAR (SERFLG) 
;LOAD THE PARMETERS FOR THE TEST 
;SETUP THE ERROR LOOP ADDRESS 
GET THE ITERATION COUNT 

;MAX_ ERRORS ALLOWED FOR TEST 
;;SET TEST NUMBER IN APT MAIL BOX 


: INHIBIT TYPING TEST NUMBER ? 
;BR IF YES 


7BR 

sTYPE ‘TEST’ 

7;SAVE STESTN FOR TYPEOUT 
3:60 TYPE--OCTAL ASCII 

si TYPE 3 DIGIT(S) 

3; SUPPRESS LEADING ZEROS 


;KW11-P_ CLOCK 
sYES=--START TEST 


sRETURN HERE IF NO ERROR 
;RETURN HERE ON ERROR 


SEQ 0086 


CZRMVAO RMOS/3/2 EXT'D DR TST 
MAXIMUM SEEK TIMING TEST SEQ 0087 
015536 012737 015536 001122 28 MOV #. ,SLPADR sERROR LOOP ADDRESS 
015544 1337 000105 045460 MOVB &#SEEK,DPB.A+2  :SEEK=COMMAND 
015552 005037 045466 CLR DPB.A+10 SUSE TRACK 0 & SECTOR 0 
015556 013737 002526 045470 MOV FC,0PB.A+12 SSTARTING CYLINDER 
015564 012737 016136 001346 MOV WEXITI5,BYPASS :GO TO EXIT15 IF ERROR 
015572 004037 027132 JSR RO,CALL.A :GO EXECUTE THE COMMAND 
015576 012703 001666 MOV #T12,R3 ‘PARAMETER POINTER 
015602 012737 016136 001222 manie MCV WEXITI5,SESCAPE :;ESCAPE TO EXIT15 ON ERROR 
327 015610 012706 001100 MOV #STACK,SP :SETUP STACK 
328 015614 012701 000200 MOV #128. ,R TREPEAT """FC'="LC'="FC'' 128 TIMES 
329 015620 004737 031274 JSR PC, STRTMR SINIT. THE TIMERS 
330 015624 012777 016044 163644 MOV #7$,,aPKV :SETUP VECTOR IN CASE OF OVERFLOW 
331 015632 012777 031272 021230 MOV #DORTI,@RMVEC SETUP RM VECTOR 
332 015640 005077 163640 1$: CLR aPKB :START COUNTING FROM ZERO 
333 015664 013764 002330 000034 MOV LC,RMDC(R4) [MAXIMUM CYLINDER 
334 015652 012764 000105 000000 MOV #SEEK,RMCS1(RG) :START A SEEK 
335 015660 012777 000131 163614 MOV #131,aPKCS SSTART THE CLOCK 
336 015 000601 WAIT sWAIT ON INTERRUPT 
337 015670 042777 000101 163604 BIC #101,aPKCS ‘STOP THE CLOCK 
338 015676 032764 040000 000012 BIT WERR.RMDS(RG) = ERR=1? 
339 015704 001411 BEQ 2$ ‘NO=-BRANCH 
340 015706 104412 SAVREG [SAVE RO-RS5 
015710 012702 045536 MOV #DTADPB,R2 [DPB POINTER 
015714 004737 044310 JSR PC, SVRH70 ‘SAVE ALL THE RH/RM REGISTERS 
015720 004737 026072 JSR PC.CNTCLR +60 CLEAR CONTROLLER 
015724 104413 RESREG SRESTORE RO-RS 
341 013726 104017 T 17 
2 015730 005005 2s: CLR RS :SET THE UP/DOWN SWITCH TO UP 
343 015732 004737 031336 JSR PC, COUNT ‘UP THE COUNT 
344 015736 005077 163542 CLR aPKB :START COUNT AT ZERO 
345 015742 013764 002326 000034 MOV FC,RMDC(R4) [BEGINNING CYLINDER 
346 015750 012764 000105 000000 MOV #SEEK,RMCS1(R4) :START A SEEK 
347 015756 012777 000131 163516 MOV #131, aPKCS ‘START THE CLOCK 
348 015764 000001 WAIT ‘WAIT ON INTERRUPT 
349 015766 042777 000101 163506 BIC #101,aPKCS ‘STOP THE CLOCK 
350 015774 032764 040000 000012 BIT WERR.RMDS(RG) =: "ERR''=1? 
351 016002 001411 BEQ 3$ ‘NO--BRANCH 
352 016004 104412 SAVREG ‘SAVE RO-RS 
016006 012702 045536 MOV #DTADPB,R2 [DPB POINTER 
016012 004737 044310 JSR PC, SVRH70 ‘SAVE ALL THE RH/RM REGISTERS 
016016 004737 026072 JSR PC.CNTCLR :GO CLEAR CONTROLLER 
016022 104413 RESREG SRESTORE RO-RS5 
353 016024 104017 EMT 17 
354 016026 012705 177777 3$: MOV #-1,R5 :SET THE UP/DOWN SWITCH TO DOWN 
355 016032 004737 031336 JSR PC, COUNT [UPDATE THE COUNT 
356 016036 005301 DEC R1 ‘DONE? 
357 016040 003277 BGT 1$ *NO--BRANCH 
358 016042 000420 BR aS SYES=-EXIT 
359 016044 042777 000101 163430 7$: BIC #101, aPKCS ‘STOP THE CLOCK 
360 016052 005037 177776 CLR PS :DROP THE PRIORITY 
361 016056 012600 MOV (SP)+,RO :PC OF WAIT+2 
362 016060 005726 TST (SP)+ ‘POP THE PS FROM THE STACK 
363 016062 104412 SAVREG [SAVE RO-R5 
016064 012702 045536 MOV #DTADPB,R2 [DPB POINTER 
016070 004737 044310 JSR PC, SVRH?0 [SAVE ALL THE RH/RM REGISTERS 
016074 004737 026072 JSR PC-CNICLR 760 CLEAR CONTROLLER 


CZ 
1 


MVAO anos 3/2 EXT'D DR TST 


CZR 
5 


BA 

016100 
364 016102 
365 016104 
366 016110 
367 016114 
368 016122 

016126 
369 016130 
370 016134 
371 016136 
372 


104413 


000004 


XIMUM SEEK TIMING TEST 


K 7 
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020746 


RESREG 
EMT 
8$: JSR 


SP 
EX1115: SCOPE 


PC,CNTCLR 
PC,ST.CLK 
#1ISR,@RMVEC 
RO, TYPTIM 


RO,SPTYP 


;RESTORE RO-R5 


:G0 CLEAR pre tebe 
sINITIALIZE THE CLOCK 

; RESTORE tye aff VECTOR 
:60 uten THE TIME 


:POINT 


;CALL SCOPE ROUTINE 


SEQ 0088 





CZRMVAO RMOS/3/2 EXT'D DR TST 


a 
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_ ADDRESSING TESTS 


SEQ 0089 


} .SBTTL ADDRESSING TESTS 
3 SEAGER AAR A 
i S®THE ADDRESSING TESTS ENSURES PROPER OPERATION HE TRACK 
5 [*AND SECTOR ADDRESS CIRCUITRY. BOTH ADDRESSING TESTS WILL 
6 [*BE PERFORMED ON CYLINDER FC. 
, SEAPIITIITTAT TATA TAA AAA AAA TAA AA AAA AAA AAA AAA AAA AAA AAA 
19 
20 FRA RARARAAAA EEE REREA ERATE AEE AERA AARAAAAAAEAAAHEARAERERAEE Ee 
SeTEST 16 SECTOR ADDRESSING TEST 
:*THIS TEST WRITES DATA INTO ALL SECTORS OF TRACK FT’. THE 
:*DATA WILL BE 256 WORDS OF THE SECTOR ADDRESS OF THE SECTOR 
[*BEING WRITTEN. A WRITE CHECK 1S PERFORMED, THE BUF 
[*CLEARED (TO 177400) AND THE DATA IS READ AND COMPARED. THEN 
7*SECTOR 0 IS REWRITTEN AND SECTORS 0 - 31 ARE WRITE CHECKED. 
:*THEN SECTOR 1 1S REWRITTEN AND SECTORS 0 = 31 ARE WRITE CHECKED. 
[*THIS REWRITE AND WRITE CHECK PROCEDURE IS CONTINUED UP THROUGH 
;*REWRITE SECTOR 31 AND WRITE CHECK SECTORS 0-31. 
SERRA AAA EE EEA EAE E EAE EERE AAEAEAREEEAEKAEKEAKAAA RAH 
016140 i116: 
016140 000240 NOP 
016142 033737 001562 001330 BIT BITS+<16#2>, TSTNMS :D0 THIS TEST? 
016150 001002 BNE +6 :BR IF YES 
016152 000137 016562 JMP TST17 :NO=-JUMP TO TEST17 
016156 012737 000016 001116 MOV #16,$TSTNM :SET TEST #16 AND CLEAR (SERFLG) 
016164 004737 026672 JSR PC,LODPRM ‘LOAD THE PARMETERS FOR THE TEST 
016170 012737 016260 001124 MOV #TESTI6,$LPERR :SETUP THE LOOP ON ERROR ADDRESS 
016176 013737 002324 001220 MOV RPT, STIMES :GET THE ITERATION COUNT 
016204 113737 001462 001131 MOVB  ERR.CT,SERMAX :MAX ERRORS ALLOWED FOR TEST 
fe 016212 012737 000016 001240 MOV #16, S$TESIN :;SET TEST NUMBER IN APT MAIL BOX 
016220 032777 010000 162726 BIT #SW12,aSWR s INHIBIT TYPING TEST NUMBER ? 
016226 001406 BEQ +16 R IF YES 
016230 104401 046253 TYPE MSGTST ype. TEST" 
016234 013746 001240 MOV gsctst -(SP)  $;SAVE $TESTN FOR TYPEOUT 
016240 104403 TYPOS 360 TYPE--OCTAL ASCII 
016242 003 .BYTE 3 Si TYPE 3 DIGIT(S 
0162463 000 "BYTE 0 ++ SUPPRESS CEADING ZEROS 
26 016244 012737 016560 001346 MOV WEXI1T16,BYPASS 
016252 012737 016260 001122 reels MOV #TESTI6O,$LPADR ;SETUP THE LOOP ADDRESS 
27 016260 012706 001100 MOV #STACK,SP :SET THE STACK POINTER 
28 016264 004737 032256 JSR PCF ILBUF ‘FILL THE BUFFER WITH SECTOR ADDRESSES 
29 016270 013737 002326 045550 MOV FC,DTADPB+12 CYLINDER 
30 016276 113737 002334 045547 MOVB FT.DTADPB+11  :TRACK 
31 016304 105037 045546 CLRB DTADPB+10 sSECTOR 
32 016310 013737 001450 045542 MOV TRCKWC,DTADPB+4 :WORD COUNT 
3016316 012737 052776 045544 MOV #BUFFER,DTADPB+6 sBUFFER ADDRESS 
34 016324 012737 016324 001124 MOV #., SLPERR ;SETUP THE ERROR LOOP ADDRESS 
016332 012706 001100 MOV #STACK,SP ‘LOAD THE STACK POINTER 
35 016336 012737 000161 045540 MOV #URITE DTADPB+2 SCOMMAND=WRITE DATA 
016344 004037 027670 JSR ‘START A DATA TRANSFER 
37 016350 012737 000151 045540 MOV WWRCKD, Di ADPB+2 [COMMAND=WRITE CHECK DATA 
38 016356 012737 016356 001124 MOV #.,SLPERR ‘SETUP THE ERROR LOOP ADDRESS 
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MOV #STACK,SP :LOAD THE STACK POINTER 
JSR RO,DRVCAL *START A DATA TRANSFER 
001124 MOV #.,SLPERR ‘SETUP THE ERROR LOOP ADDRESS 
MOV #STACK,SP ‘LOAD THE STACK POINTER 
JSR RO, CLRBUF ‘CLEAR BUFFER 
045540 MOV #READ,OTADPB+2 COMMAND = READ 
JSR RO, DRVCAL [START A DATA TRANSFER 
JSR *CKSCTR SCHECK THE SECTOR DATA READ 
MOV #BUFFER,RO ‘BUFFER ADDRESS 
CLR R1 [FIRST SECTOR 
001124 MOV #.,SLPERR ‘SETUP THE ERROR LOOP ADDRESS 
MOV #STACK,SP ‘LOAD THE STACK POINTER 
045540 18: MOV #WRITE,DTADPB+2 :COMMAND=WRITE DATA 
045542 MOV #SCTRWC,DTADPB+4 sWORD COUNT 
MOV RO, DTADPB+6 sBUFFER ADDRESS 
MOVB R1,.DTADPB+10 SECTOR 
JSR RO. DRVCAL ‘START A DATA TRANSFER 
001124 MOV #. .SLPERR ‘SETUP THE ERROR LOOP ADDRESS 
MOV #STACK,SP ‘LOAD THE STACK POINTER 
045540 MOV #WRCKD.DTADPB+2 :COMMAND=WRITE CHECK DATA 
045542 MOV TRCKWC,DTADPB+4 :WORD COUNT 
045544 MOV #BUFFER,DTADPB+6 ;BUFFER ADDRESS 
CLRB = DTADPB+10 sSECTOR 
JSR RO, DRVCAL *START A DATA TRANSFER 
ADD #512.,RO0 ‘MOVE TO NEXT SECTOR 


R1 
CMP PRMLMT+24,R1 ; DONE? 
BHIS 1$ ;NO--BRANCH 
EX1T16: SCOPE CALL SCOPE ROUTINE 


FTAA AREER EAA TEER ERATE KHKKAKKKEREKEAE Ee 
s*TEST 17 TRACK ADDRESSING TEST 

s*THIS TEST WILL WRITE DATA IN THE FORM OF TRACK ADDRESSES 

s*IN CYLINDER ‘'FC’' SECTOR ‘'FS'' OF EVERY TRACK WITH EACH TRACK 
*GETTING ITS OWN TRACK ADDRESS. 

:*A WRITE CHECK IS THEN PERFORMED ON EACH TRACK TO ENSURE 

:*THE DATA IS VALID. THEN TRACK 0 IS REWRITTEN AND TRACK 1 
:*THROUGH LAST TRACK IS WRITE CHECKED. THEN TRACK 1 IS 
s*REWRITTEN AND TRACK 2 THROUGH LAST TRACK IS WRITE CHECKED. 
:*THIS PROCEDURE IS CONTINUED UP THROUGH REWRITING NEXT TO LAST 
:*TRACK AND WRITE CHECKING LAST TRACK. 


=WEAABEZALAALASALLALASALSALSALEAAAALASEA EEE SESE SEER SARE S ESSERE SESE SS 


TST17: a 
001330 B17 B11S+<17#2>, TSTNMS ido THIS TEST? 
JMP TST20 :NO--JUMP TO TEST20 
001116 MOV #17, $TSTNM sSET TEST #17 AND CLEAR (SERFLG) 
JSR PC,LODPRM ‘LOAD THE PARMETERS FOR THE TEST 
001124 MOV #TESTI7,$LPERR :SETUP THE LOOP ON ERROR ADDRESS 
001220 MOV RPT, § :GET THE ITERATION 
001131 MOVB  ERR.CT,SERMAX :MAX ERRORS ALLOWED FOR TEST 
001240 MOV #17. $TESTN ';SET TEST NUMBER IN APT MAIL BOX 
162304 BIT #SW12,aSWR s INHIBIT TYPING TEST NUMBER ? 


SEQ 0090 


'¢ 
7 


ZR 
7 


MVAO RMOS/3/2 EXT'D DR_TST 
TRACK ADDRESSING TEST 


016650 
016652 
016656 
016662 
016664 
016665 
83 016666 
016674 
016702 
84 016702 
85 016706 
86 016712 
87 016720 
88 016726 
89 016734 
90 016742 
91 016750 
92 016752 
016760 
93 
94 016764 
95 016770 
96 016774 
97 017002 
98 017004 
99 017010 
100 Ore ts 
101 01702 
102 017022 
017030 
103 
104 017034 
105 017042 
106 017046 
107 017052 
108 017060 
109 017062 
110 017 
111 017070 
112 
113 017072 
114 017076 
115 017100 
116 017106 
117 017110 
118 017112 
119 017120 
120 017122 
piles 
121 017134 
122 017142 
123 
124 017146 
125 017154 
126 017160 
017166 


Oe at ot © ow ot ot —_>_— to 
Aes gene | 
Non 


ODWwoOwoe 


SCOWWWw S<Sasesses 


Suoo 
ononvconws 


o-o ooSocoe 
o3—— at tO 
form rvuty 


& 
™m 
NO 
Ww 
~N 
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S3ssss oo 
- o- Yncoowo —— 


o oo oO 


052776 


017022 
001100 


000151 
001000 
001372 
045547 


052776 


001000 
017122 
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045544 


045544 


001124 


045540 


045544 


045544 


045544 
001124 
045540 


045544 
001124 


TESTI7: 


1$: 


2$: 


3$: 


4$: 


5$: 


6$: 


+16 :BR IF YES 

MSGTST :TYPE "TEST® 

$TESTN,-(SP) | :;SAVE $TESTN FOR TYPEOUT 
+:G0 TYPE=-OCTAL ASCII 

3 si TYPE 3 DIGIT 

0 ':SUPPRESS LEADING ZEROS 


WEXIT YPASS 


Pw 


;SETUP THE LOOP ADDRESS 


7, 
#TESTI7,$LPADR 
WSTACK,SP SET THE STACK POINTER 
PC,FILBUF ;FILL THE BUFFER WITH TRACK ADDRESS 
MWRITE ,DTADPB+2 ;COMMAND=WRITE DATA 
FC ,DTADPB+12 ; CYLINDER 
FS ,DTADPB+10 ;SECTO 
;WORD COUNT 


D 
a eer ene ” seca ADDRESS 


; TRACK= 
#. , SLPERR ;SETUP THE ERROR LOOP ADDRESS 
WSTACK,SP ;LOAD THE STACK POINTER 


RO,DTADPB+11 ; TRACK ADDRESS 
RO, DRVCAL ;START A DATA TRANSFER 
#256.#2. ,DTADPB+6 ; UPDATE — ADDRESS 


R ;UPDATE TRACK NUMBE 

LSTRK,RO ;OUT OF TRACKS? 

1$ ;NO--BRANCH 

+ iaeetaateiiattitie ;BUFFER ADDRESS 
#.,SLPERR ;SETUP_THE ERROR LOOP ADDRESS 
#STACK SP ;LOAD THE STACK POINTER 
MWRCKD ,DTADPB+2 ;COMMAND=WRITE CHECK 
RO,DTADPB+11 : TRACK ADDRESS 

RO,DRVCAL START A DATA TRANSFER 
#256.*2. ,DTADPB+6 ;UPDATE BUFFER ADDRESS 
R ; UPDATE TRACK NUMBER 

LSTRK,RO ;OUT OF TRACKS? 

2$ :NO--BRANCH 

RO :FIRST TRACK ADDRESS 
RO,DTADPB+11 ; TRAC 


K 
’ ;FORM BUFFER ADDRESS 
5 athe: hentai ;BUFFER ADDRESS 


5$ 
Gz56-98. BTARPOMS 
#. ,SLPERR ;SETUP THE ERROR “pes SOOnESe 


#STACK,SP *LOAD THE STACK POINTE 
#WRITE,DTADPB+2 ;COMMAND=WRITE DATA 


RO,ORVCAL ‘START A DATA TRANSFER 
#256.*2. ,DTADPB+6 SUPDATE BUFFER ADDRESS 
DTADPB+ if MOVE TO NEXT TRACK 


#. ,SLPERR ;SETUP THE ERROR LOOP ADDRESS 
WSTACK,SP ;LOAD THE STACK POINTER 


SEQ 0091 


a ee — 


 ¢ 
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CZRMVAO RMOS/3/2 EXT'D DR TST 
117 TRACK ADDRESSING TEST SEQ 0092 
127 017172 012737 000151 045540 MOV #uRCKD, DTADPBS2 : COMMAND =WRITE CHECK DATA 
128 017200 904037 927670 JSR ‘START A DATA TRANSFER 
129 017204 123737 001372 045547 CMPB tStk, DTADPB#11 ‘out OF TRACK $7 
130 017212 003355 BGT :NO--BRANCH 
131 017214 005200 INC 8 ‘NEXT TRACK TO WRITE 
132 017216 023700 001372 CMP LSTRK,RO :OUT OF TRACKS? 
133 017222 003323 BGT 3$ --BRANCH 
134 017224 000004 EXIT17: SCOPE SCALL SCOPE ROUTINE 
155 
156 eat ie oc Gath ce eee 
:ATEST 20 DATA TEST 
*THIS Test PERFORMS DATA STORAGE AND RETRIEVAL ON CYLINDERS 
ie Fc HRO C'’ BY THE INCREMENT "‘IC'’ USING THE DATA PATTERNS 
S SSPECIFIED™ THE FOLLOWING SEQUENCE OCCURS FOR EACH CYLINDER: 
:* (1, SET "ET" THEN REPEAT 2- 4 UN 
7* (2. WRITE THEN WRITE CHECK ‘'FS'' T Hts 9 RACK ‘'NT"’ 
;* (3. READ THEN SOFTWARE COMPARE ee vaROUt git OF TRACK ‘NT’ 
:* (4. INCREMENT NT’ BY "IT" 
7* (5. REPEAT STEPS 1-4 FOR EACH DATA PATTERN 
7* (6. REPEAT STEPS 1-5 FOR "FC’’ THROUGH "'LC’’ ADVANCING BY ‘IC’ 
*® 
[*1F A WRITE CHECK ERROR OCCURS THE ERROR IS REPORTED AND 
S*THE TRACK IN ERROR 'S REWRITTEN AND CHECKED. THIS CHECK IS 
: *ACCOMPL] SHED BY PERFORMING TWO(2) SUCCESSIVE ERROR FREE 
S*WRITE CHECKS. IF Ab: CHECK FAILS THE ERROR IS REPORTED AS 
:*FATAL AND NO READ OCCURS. 
:*FS DEFAULTS TO 1 A AN S DEFAULTS TO 0 
;*PAT DEFAULTS TO 17997 (ALL POSSIBLE PATTERNS) 
peeeeeeeeeeeeeeeeeeeeee eer eee eee ReeeeeKeKeKeAeeeeeeeeeeteeeee 
017226 i120: 
017226 000240 NOP 
017230 033737 001526 001332 BIT BITS+<20*2-40>,TSTNMS#+2 ;DO THIS TEST ? 
017236 001002 BNE +6 YES 
017240 000137 020006 JMP TST21 ‘NO== JUMP TO TEST21 
017244 012737 000020 001116 MOV #20,$TSTNM ;SET TEST #20 AND CLEAR (SERFLG) 
017252 004737 026672 JSR PC, LODPRM [LOAD THE PARMETERS FOR THE TEST 
017256 012737 017454 001124 MOV #TEST20,$LPERR :SETUP THE LOOP ON ERROR ADDRESS 
017264 013737 002324 001220 MOV RPT, STIMES [GET THE ITERATION COUNT 
017272 113737 001462 001131 MOVB ERR. CT SERMAK [MAX ERRORS ALLOWED FOR TEST 
—_ 017300 012737 000020 001240 MOV #20, $TESTN ::SET TEST NUMBER IN APT MAIL BOX 
017306 032777 010000 161640 BIT #SW12,aSWR ; INHIBIT TYPING TEST NUMBER ? 
017314 001406 BEQ +1 :BR IF YES 
017316 104401 046253 TYPE § .MSGTST TYPE TEST! 
017322 013746 001240 MOV STESTIN,-(SP) | :;SAVE S$TESTN FOR TYPEOUT 
017326 104403 TYPOS 3:G0 TYPE--OCTAL ASCII 
017330 003 .BYTE 3 ::TYPE 3 DIGIT(S) 
017331 000 “BYTE 0 [SUPPRESS LEADING ZEROS 
158 
44 ;SET UP THE TRACK WORD COUNT FOR DATA TRANFER 
161 017332 012737 017332 001122 MOV #., SLPADR sSETUP THE 1 ADDRESS 
16¢ 017340 005000 CLR RO “CLEAR SWITCH 
163 017342 005004 CLR RG ;FORM WORD COUNT IN R4 
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SEQ 0093 
002344 MOV LS,R1 sLOAD LAST SECTOR 
002342 SUB FS.R1 :COMPARE WITH FIR RST SECTOR 
BGE 1$ [SKIP NEXT IF FS < OR = LS 
002456 ADD PRMLMT+24,R1 ;ADD MAXIMUM SECTOR ADDRESS TO 
INC RI [MAKE THE DIFFERENCE POSITIVE 
COM RO [SET SWITCH FOR FS > LS 
000400 1$: ADD #256. RG ; WORDS/ SECTOR 
DEC R1 LS = FS SECTORS MIN US ONE 
BGE 1$ TNCR . WORD COUNT IF NO. SECTORS STILL * 
NEG RG [FORM NEGATIVE UUORD COUNT 
MOV R4,RS [COPY NORMAL WORD COUNT INTO SMALL wC 
TST RO 3FS > LS SWITCH SET? 
BEQ 3$ :NO, SKIP NEXT 
CLR RS :FORM WORD COUNT FOR FS > LS 
002456 MOV PRMLMT#24,R1 “MAX SECTOR ADDRESS 
002342 SUB FS,R1 * SUBTRACT THE FIRST SECTOR 
000400 2s: ADD #256. RS ‘WORDS/SECTO 
DEC RI :NO SECTORS MINUS ONE 
BGE 2$ SINCR. WORD COUNT IF NO. SECTORS STILL * 
NEG RS [FORM NEGATIVE WORD COUNT FOR THIS CASE 
:SET UP FOR DATA TRANSFERS AND PATTERN VARIATIONS 
002342 0465546 35: MOVB FS,OTADPB+10 —s; SECTOR 
g3err6 045544 MOV #BUFFER, DTADPB+6 ;DATA BUFFER 
920004 001346 isis MOV #EX1T20. BYPASS 
001100 MOV #STACK,SP LOAD THE STACK POINTER 
001432 CLR WCEFLG ;CLEAR The WRITE CHECK ERROR FLAG 
00232 MOV FC,RI :PICKUP FIRST CYLINDER 
BR 2$ :SKIP PATTERN SET-UP FIRST TIME THRU 
1$: TST (RO)*+ :MOVE TO NEXT DATA PATTERN 
000040 CMP #16.*2.,R0 [OUT OF PATTERNS? 
BGT 3$ =NO, STAY ON THIS CYLINDER UNTIL DONE 
032202 JSR RO, INCCYL [MOVE TO NEXT CYLINDER 
BR ExiT20 [OUT OF CYLINDERS 
:D0 NEXT CYLINDER 
2$: CLR RO :START WITH PATTERN 0 
001526 002346 35: BIT BITS(RO),PAT sTHIS PATTERN SELECTED? 
BEQ 1$ :NO, 60, BACK AND GET ONE THAT WAS 
002334 MOV FT,R2 “FIRST TRACK 
045550 MOV R1,DTADPB+12 ‘LOAD THE CYLINDER 
045547 4$: MOVB = RZ, DTADPB+11 [LOAD THE TRACK 
001466 CMP R1,#822. :CHECK FOR LAST DISK CYLINDER 
BNE 10$ :SKIP LAST TRACK CHECK IF NOT 
001372 CMP R2,LSTRK ZLAST DISK TRACK 
BEQ ExiT20 [DON'T TEST LAST TRACK AS IT HAS BAD 
108: ‘BLOCK INFORMATION STORED ON IT 


045542 MOV RG ,DTADPB+4 ;LOAD THE WORD COUNT 


¢inrene RMOS/3 
0 DATA T 
223 01755 
224 017569 
225 Ae 
226 0175 
227 01757 
228 017576 
229 017602 
230 017604 
231 017610 
232 017612 
233 017616 
234 017624 
235 017626 
017634 
236 017640 
237 
238 
239 
240 017646 
241 017652 
242 017660 
243 017662 
- 017670 
244 017674 
245 017702 
246 017706 
247 017712 
248 017714 
249 017722 
250 017724 
251 017732 
252 017734 
017742 
253 017746 
254 017754 
255 017760 
256 017766 
257 017770 
258 017774 
259 02 
260 020002 
$01 020004 


Ose 
Oo-vrN 


esgesee 
eles ~aetendaibek 
WENO — 


s 


Mmrn—r 
FGEVNF 


ooo 
—— 
we 
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LSSSas 
MNRN—NwFS 


NEN NONI NONO 


MMM NR oN 

Saussure ~~ WUwow uw 
—~N 

SSSNENESSSS SANS 


Nt 


s sesnecaseeseee 


DR TST 


002330 
001372 


045542 
161352 


000030 


032732 
000020 


017626 


001100 
000161 


027670 
000010 


017662 
001100 
151 


000 
027670 
001432 


000001 
000004 
017734 

00 


033022 
032152 


0 
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161330 
001124 
045540 


161274 
001124 
045540 


161232 
161222 
001124 
045540 
161166 


CMP LC,R1 ;LAST DISK CYLINDER TO TEST ? 
BGT $ :NO, SKIP TRACK CHECK 
CMP " \aal LAST DISK a TO TEST ? 
BGE * :NO, SKIP NEXT 
MOV RS ,DTADPB+4 SHORT WORD COUNT 
5$: MOV aSwR RS ; INHIBIT WRITE AND 
COM iWRITE CHECK? 
BIT #SW04!SWO3,R3 
BEQ 7$ ; YES--BRANCH 
JSR PC, SETBUF ;MOVE DATA "wee INTO THE BUFFER 
BIT #SWOS ,aSWR eae WRITE? 
BNE 6$ DO NEXT PORTION OF TESTING 
MOV #. ,SLPERR SETUP THE ERROR i ADDRESS 
MOV #STACK,SP [LOAD THE STACK POINTER 
MOV MWRITE,DTADPB+2 ;COMMAND=WRITE DATA 
;D0 A DATA TRANSFER 
JSR RO,DRVCAL ;START A DATA TRANSFER 
6$: BIT #SWO3,aSWR ; INHIBIT WRITE CHECK? 
BNE 7$ ; YES--BRANCH 
MOV #. ,SLPERR ;SETUP_ THE ERROR LOOP ADDRESS 
MOV #STACK,SP ;LOAD THE STACK POINTER 
MOV #WRCKD ,DTADPB+2 3 pete ae re bi CHECK DATA 
JSR RO, DRVCAL START A DATA TRANSFER 
7$: TST WCEFLG ;WRITE CHECK "ERROR FLAG SET? 
BEQ $ ANCH 
ae gees coun :PERF ORM READ AFTER FATAL "WCE*’? 
8$: BIT #SWO2 ,aSwR : INHIBIT Bn oy DATA AND SOFTWARE COMPARE? 
BNE ; YES--BRANCH 
MOV , SLPERR :SETUP THE ERROR LOOP ADDRESS 
MOV i ACK ,SP [LOAD THE STACK POINTER 
MOV #READ,OTADPB+2 ; COMMAND=READ 
JSR RO,DRVCAL :START A DATA TRANSFER 
BIT #SU01,aSWR ;COMPARE THE DATA? 
BNE 9$ fm a 
JSR PC,DATCMP :YES--DO IT 
9$: JSR RO, INCTRK :MOVE TO NEXT TRACK 
BR 1$ :0UT OF TRACKS GO TO NEXT PATTERN 


BR 
EXIT20: SCOPE 


LOOP 
CALL SCOPE ROUTINE 


A 
STEST 21 RANDOM ADDRESS AMD RANDOM PATIERN TEST 


“TEST 21 RANDOM ADDRESS AND RANDOM PATTERN TEST 
{ eSTARTING AT ‘‘FC’’ AND GOING SEQUENTIALLY TO ‘'LC’’ THE DISK 
:*PACK 1S WRITTEN WITH A RANDOM PATTERN. THE FIRST TWO WORDS 


*OF EACH SECTOR WILL BE THE BASE OF THE RANDOM GENERATOR 
:*FOR THAT SECTOR. 


s*THE TEST THEN PERFORMS THE FOLLOWING SEQUENCE ‘'R’’ TIMES 


;*"'R'’ DEFAULTS TO 1000. 


el) GENERATE A RANDOM SECTOR ADDRESS 
;#2) WRITE A RANDOM PATTERN AT THE ADDRESS 
;@ GENERATED IN 1. 


SEQ 0094 


qs E 
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121 RANDOM ADDRESS AND RANDOM PATTERN’ TEST SEQ 0095 


;*3) GENERATE A NEW RANDOM SECTOR ADDRESS 

3*4) READ THE SECTOR AT THE ADDRESS 

.* GENERATED IN 3. 

3*5) DO A SOFTWARE CHECK OF THE DATA READ IN 4 AGAINST 
THE ORIGINAL RANDOM PACK DATA. 

3*6) DO A WRITE CHECK OF THE DATA WRITTEN IN 2 
3*7) GENERATE A NEW RANDOM SECTOR ADDRESS 

;*8) READ THE SECTOR AT THE ADDRESS 

> GENERATED IN 7, 

3*9) DO A SOFTWARE CHECK OF THE DATA READ IN 8 
:*10) DO A WRITE CHECK OF THE DATA WRITTEN IN 2 


see eeeeeeekeeeeeeeteteeeererereeteneneenaeeeeeeeneeeenetenaeRene 


020006 TST21: 
020006 000240 NOP 
020010 033737 001530 001332 BIT BITS#<21#2-40>,TSTNMS#2 ;DO THIS TEST ? 
020016 001002 BNE .*6 ;BR IF YES 
020020 000137 020624 JMP TST22 sNO--JUMP TO TEST22 
020024 012737 000021 001116 MOV #21,$TSTNM ;SET TEST #21 AND CLEAR (SERFLG) 
020032 004737 026672 JSR PC,LODPRM LOAD THE PARMETERS FOR THE TEST 
020036 012737 020302 001124 MOV MTEST21,$LPERR ;SETUP THE LOOP ON ERROR ADDRESS 
020044 013737 002324 001220 MOV RPT, STIMES GET THE ITERATIGN COUNT 
020052 113737 001462 001131 MOVB ERR.CT,SERMAX ;MAX ERRORS ALLOWED FOR TEST 
789 020060 012737 000021 001240 MOV #21,$TESTN 77;SET TEST NUMBER IN APT MAIL BOX 
02 032777 010000 161060 BIT #SW12,aSWR ; INHIBIT TYPING TEST NUMBER ? 
020074 001406 BEQ .+16 ;BR IF YES 
020076 104401 046253 TYPE MSGTST sTYPE ‘TEST’ 
020102 013746 001240 MOV $TESTN,-(SP) ::SAVE $TESTN FOR TYPEOUT 
020106 104403 TYPOS 3:G0 TYPE=-OCTAL ASCII 
020110 003 -BYTE 3 si TYPE 3 DIGIT(S) 
020111 000 BYTE 0 7; SUPPRESS LEADING ZEROS 
90 020112 012737 020112 001122 MOV #.,SLPADR SETUP THE LOOP ADDRESS 
293 020120 012737 020622 001346 MOV WEXIT21,BYPASS 
294 020126 012737 176543 025646 MOV #176543, SHINUM ;PRIME THE RANDOM NUMBER GENERATOR 
295 020134 012737 123456 025650 MOV #123456, SLONUM 
020142 013737 002326 045550 MOV FC ,DTADPB+12 ; CYLINDER 
297 020150 013737 001450 045542 MOV TRCKWC,DTADPB+4 ;WORD COUNT FOR 32/30 SECTORS (FULL TRACK) 
298 020156 012737 052776 045544 MOV #BUFFER ,DTADPB+6 ;BUFFER ADDRESS 
020164 012737 000161 045540 MOV #WRITE,DTADPB+2 ; COMMMAND 
020172 032737 100000 001314 BIT #SWi5,C.SwWR sWRITE THE DISK PACK BEFORE TESTING? 
301 020200 001027 BNE 3$ 7NO--BEGIN TESTING 
302 020202 004037 033340 JSR RO, FILRAN sFILL DATA BUFFER WITH RANDOM DATA 
303 020206 005037 045546 1$: CLR DTADPB+10 SECTOR AND TRACK 
304 020212 012737 020212 001124 MOV #. ,SLPERR SETUP THE ERROR LOOP ADDRESS 
ons og0ee0 012706 001100 . MOV #STACK,SP :LOAD THE STACK POINTER 
pens ge 004037 027670 JSR RO,DRVCAL ;START A DATA TRANSFER 
0202 105237 045547 INCB DTADPB+11 :NEXT TRACK 
307 020234 123737 001372 045547 CMPB LSTRK,DTADPB+11 TIME FOR NEXT CYLINDER ? 
308 020242 002370 BGE es :NO--DO NEXT TRACK ON THIS CYL. 
309 0202464 005237 0.5550 INC DTADPB+12 :INCR CYLINDER ADDRESS 
310 020250 023737 0.12330 045550 CMP LC, DTADPB+12 sOUT OF CYLINDERS? 
312 020256 002553 BGE 1$ ;NO--CONTINUE SEQUENTIAL RANDOM WRITE 
13 


C 
T 


I 
2 


R 
1 


MVAO ROS oate EXT'D 
RANDOM ADDRESS 
314 020260 012737 
319 020266 012737 
020274 012737 
020 Os 
320 020302 012706 
321 Og0 208 004037 
322 02031 Ogres 
323 020320 013737 
324 peo ee 012737 
325 0203 012701 
326 020340 010137 
Sf 020344 004037 
329 020350 012737 
020356 012706 
$30 020362 004037 
332 020366 004037 
333 020372 012737 
334 020400 012737 
335 020406 012737 
020414 012706 
336 020420 004037 
337 020424 005737 
338 020430 100402 
oe 020432 004037 
341 9200 36 01737 
rk 020444 013737 
343 020452 012737 
ee 020460 012737 
346 020466 012737 
020474 012706 
4 020500 004037 
349 020504 004037 
350 020510 012737 
351 020516 012737 
352 os0ogs 012737 
020532 012706 
353 020536 004037 
354 020542 005737 
355 020546 100402 
238 020550 004037 
958 020554 Ore 
359 020562 013737 
360 020570 012737 
361 020576 012737 
362 02 012737 
020612 012706 
363 020616 004037 
364 020622 000004 


INF 
Www 


Dd 
A 


TST 


o oo 


o ooo OCOOCoOoOOoOOCOSoS oO, 27 
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052776 
020466 
001100 
027670 


033614 


001464 
033362 
001436 

0 


027670 
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ote ed 
0011 
001124 


001436 
001440 
045540 


001124 


045540 
0465544 
001124 


001124 


045540 
045544 
001124 


045546 


001124 


38: 


* 
TEST21: 


EXIT21: 


R 
SCOPE 


#SCTRWC DTADPB+4 
#TEST21,$LPADR 
#TEST21, SLPERR 


#STACK SP 
RO,RANADR 


WORD COUNT 


;SET Hh POINTER 
TE A_ RANDOM ADDRESS 


: GENERA 
DTADPB+10, sare R SAVE THE TRACK/SECTOR 


DTADPB+12,SVAD 


VE THE Domes 


3 SA 
WRITE, DTADPBe2 : COMMAND =WR1 TE DAT 


#BUFFER 


RT DTADPBS6 


RO,RANPAT 
#. ,SLPERR 
STACK ,SP 
RO,DRVCAL 


RO ,RANADR 


#READ ,DTADPB+2 
mBUEFERS5I2., ,DTADPB+6 


’ 
WSTACK, SP 
RO,DRVCAL 
BASFLG 


.*6 
RO,RANCK 


WRITE BUFFER ADORESS FOR "'RANPAT"’ 


SINTO THE DATA PARAMETER BLOCK 


;GENERATE RANDOM 256 WORD PATTERN 
;AND PUT INTO THE WRITE BUFFER 
;SETUP_ THE ERROR LOOP ADDRESS 


[LOAD "= STACK POINTER 
sSTART A 


;GENERATE A NEW RANDOM ADDRESS 


DATA TRANSFER 


; COMMAND=READ DATA 

READ BUFFER ADDRESS 

;SETUP THE ERROR LOOP ADDRESS 

;LOAD THE STACK FOINTER 

START A DATA TRANSFER 

:1F BAD SECTOR a SKIP NEXT CALL 
:DON'T COMPARE D 

SOFTWARE CHECK THe DATA 


SVADR, A yt eehy — eerste WHERE THE LAST 


SVADR#2,DTA 


E WAS tet aes 


WR 
WWRCKD, DTADPB+2 ; seating” hy CHECK DAT 


#BUF FER ,DTADPB+6 


#. ,SLPERR 
#STACK,SP 
RO,DRVCAL 


RO,RANADR 


#READ ,DTADPB+2 
#BUFFERS 512. -DTADPB+6 


, SLPERR 
HSTACK SP 
RO,DRVCAL 
BASFLG 


.*6 
RO, RANCK 


oe 


oe ADDRESS FOR HARDWARE 


;CHECK OF THE DATA 


;SETUP THE ERROR LOOP ADDRESS 
;LOAD THE STACK POINTER 
START A DATA TRANSFER 


; GENERATE AA RANDOM ADDRESS 


OMMAND=R 

;DATA BUFFER ADDRESS 
;SETUP THE ERROR LOOP ADDRESS 
[LOAD THE STACK POINTER 
: START A DATA TRANSFER 


:D 
‘SOF TUARE CHECK THE DATA 


SVADR, yp eted ;GET DISK aeY cals o THE 


SVADR#2,DTADPB 


cL 
#WRCKD, STADPBS? ; COMMAND = ei by CHECK DATA 


#BUFFER, one Bo” 
,SLPERR 


WSTACK, SP 
RO,DRVCAL 


LOAD 


A BUFFER ADDRESS 
; SETUP tite ATRROR LOOP ADDRESS 
THE STACK POINTER 
START A DATA TRANSFER 


:CALL SCOPE ROUTINE 


SEQ 0096 
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T22 ACCESS TIME ADJUSTMENT TEST SEQ 0097 


T 22 ACCESS TIME ADJUSTMENT TEST 
i STMIS TEST PERFORMS SEEKS BETWEEN ye 0 & 255 TO ALLOW THE 
s*OPERATOR TO ADJUST THE ACCESS TIME ON AN RMO5/3/2 USING THE 
:*DDU. THE PROGRAM STALLS APPROXIMATELY % SECONDS BETWEEN SEEKS 
:*SO THAT THE ACCESS TIME INDICATORS ON THE DDU MAY BE OBSERVED. 


-wereterrererereeerereeeeeerereeeeenekeeneeateneeeeneneeeeeeteee 


920624 té122: 

020624 000240 NOP 
020626 033737 001532 001332 BIT B11S*<22*2=40>,TSTNMS*2 :DO THIS TEST ? 
020634 001002 BNE +6 ;BR IF YES 
020636 000137 021020 JMP $EOP ;NO--GO TO THE END OF THE PROGRAM 
020642 012737 000022 001116 MOV #22, $TSTNM ;SET TEST #22 AND CLEAR (SERFLG) 
020650 004737 026672 JSR PC, LODPRM “LOAD THE PARMETERS FOR THE TEST 
020654 012737 020736 001124 MOV #TEST22, $LPERR : SETUP THE LOOP ON ERROR ADDRESS 
020662 013737 002324 001220 MOV RPT STIMES GET THE ITERATION COUNT 
020670 112737 000146 001181 MOVE  #100.,$ERMAX  :MAX ERRORS ALLOWED FOR TEST 

me 020676 012737 000022 001240 MOV #22,$TESTN ::;SET TEST NUMBER IN APT MAIL BOX 
20704 032777 010000 160242 BIT wsul2, aswR : INHIBIT TYPING TEST NUMBER ? 
020712 001406 BEQ +16 ‘BR IF YES 
020714 104401 046253 TYPE GTST [TYPE "TEST 
020720 013746 001240 MOV ghsotst -(SP) i 3 SAVE STESTN FOR TYPEOUT 
020724 104403 TYPOS 60 TYPE--OCTAL ASCII 
020726 003 .BYTE 3 Si: TYPE 3 DIGIT(S) 
020727 000 “BYTE 0 >: SUPPRESS LEADING ZEROS 

378 920730 012737 020736 001122 celal MOV #TEST22,$LPADR ;SETUP THE LOOP ADDRESS 

379 020736 012706 001100 MOV #STACK,SP :SETUP THE STACK POINTER 

380 020742 013737 002330 045470 MOV LC,DPB.A+12 SENDING CYLINDER 

381 020750 112737 000105 045460 MOVB #SEEK,DPB.A+2  :SEEK=COMMAND 

382 020756 004037 027132 JSR RO,CALL.A 360 euecute THE COMMAND 

383 020762 004037 030664 JSR RO,STALL :STAL 

384 020766 001456 -WORD STALL3 ‘ADDRESS OF STALL VALUE 

385 020770 013737 002326 045470 MOV FC,DPB.A+12 STARTING CYLIN NDER 

386 020776 112737 000105 045460 MOVB #SEEK,DPB.A+2  :SEEK=COMMAN 

387 021004 004037 027132 JSR RO,CALL.A :GO EXECUTE THE COMMAND 

388 021010 004037 030664 JSR RO.STALL STALL 

389 021014 001456 “WORD = STALL3 ‘ADDRESS OF STALL VALUE 

390 021016 000004 EXI1T22: SCOPE [CALL SCOPE ROUTINE 
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END OF PASS ROUTINE SEQ 0098 


1 -SBTTL END OF PASS ROUTINE 


[eraneet tat feat aaa tees 
 SINCREMENT THE PASS NUMBER (SPASS 

:*INDICATE END-OF -PROGRAM AFTER . pas SES THRU THE PROGRAM 

;*1F THERES A + eh GO 10 IT 

iF THERE ISN'T JUMP TO RESTART 


021020 SEOP: 

021020 104401 021026 TYPE ,65$ bie ASC1Z STRING 

021024 000407 BR 64% sGET OVER THE ASCIZ 
::65%: .ASCIZ <CRLF><LF>/END OF PASS/ 

021044 648: 

021044 005737 001326 TST DRVSEL ANY othe SELECTED? 

021050 001434 BEQ 1$ :NO--BRAN 

021052 104401 021060 TYPE 67% : TYPE ASC IZ STRING 

021056 0006405 BR 66$ ;;GET OVER THE ASCIZ 
37678: .ASCIZ / ON DRIVE/ * 

021072 66$: a? 

021072 013746 001350 MOV CHKDRV,-(SP) 2. S8S, © My FOR TYPEOUT 

021076 104403 TYPOS Cf 5 TYPE=-OCTAL ASCII 

021100 002 BYTE 2 @& s; TYPE 2 DIGIT(S) 

021101 000 BES y 3; SUPPRESS LEADING ZEROS 

021102 104401 021110 IPE 09% sz: TYPE ASCIZ STRING 

021106 000412 BR 68% 3;;GET OVER THE ASCIZ 
3,698: .ASCIZ / ERRORS DETECTED=/ 

021134 68s: 

021134 013746 001126 MOV SERTTIL,-(SP) +3 SAVE SERTTL FOR TYPEOUT 

023740 104402 TYPOC 3GO TYPE--OCTAL ASCII(ALL DIGITS) 

021142 005037 001126 1$: CLR SERTIL  2ERO ERROR TOTAL 

021146 005037 001116 CLR STSTNM He THE TEST NUMBER 

021152 005037 001220 CLR STIMES +s ZERO THE NUMBER OF ITERATIONS 

021156 005237 001242 INC SPASS ; INCREMENT THE PASS NUMBER 

021162 042737 100000 001242 BIC #100000,$PASS ::DON'T ALLOW A NEG. NUMBER 

021170 005327 DEC (PC)+ 3;LOOP? 

021172 000010 SEOPCT: .WORD . 

021174 003027 BGT $DOAGN = VES 

021176 012737 MOV (PC)+,a(PC)+ ;;RESTORE COUNTER 

021200 000010 SENDCT: .WORD 8. 

021202 021172 SEOPCT 

021204 104401 021212 TYPE 65% s; TYPE ASCiZ STRING 

021210 000407 BR 64$ 3:GET OVER THE ASCIZ 
3765$: .ASCIZ <CRLF>/END OF TEST/ 

021230 64$: 

021230 104401 021260 TYPE , SENULL TYPE NULL CHARACTER 

021234 013700 000042 $GET42: MOV a#42,R0 3:GET MONITOR ADDRESS 

021240 001405 BEQ $DOAGN ; BRANCH IF NO MONITOR 

021242 000005 RESET 3; CLEAR THE WORLD 

021244 004710 SENDAD: JSR PC, (RO) 3:G0 TO MONITOR 

021246 000240 NOP 3: SAVE ROOM 

021250 000240 NOP 3 FOR 

021252 000240 NOP s;ACT11 

021254 SDOAGN: 

021254 000137 JMP a(PCc)+ 3; RETURN 

021256 006540 SRTNAD: .WORD RESTART 

021260 377 377 000 SENULL: .BYTE -1,-1,0 SINULL CHARACTER STRING 
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END OF PASS ROUTINE SEQ 0099 
2 
z ~SBTTL APT COMMUNICATIONS ROUTINE 
,, eeeerererarerererrererertentereeeeeeneneeeeeeaeeeteneeetenetene 

021264 112737 000001 021530 $ATY1: MOVB #1,$FFLG ::TO0 REPORT FATAL ERROR 
021272 112737 000001 021526 SATY3: MOVB #1,$MFLG ::10 TYPE A MESSAGE 
021300 000403 BR SATYC 
021302 112737 000001 021530 SAT YG: MOVB #1,SFFLG 7:70 ONLY REPORT FATAL ERROR 
021310 010046 MOV RO,-(SP) :7PUSH RO ON STACK 
021312 010146 MOV R1,-(SP) +:PUSH R1 ON STACK 
021314 105737 021526 TSTB ss SMFLG :;SHOULD TYPE A MESSAGE? 
021320 001450 BEQ $ :71f NOT: BR 
021322 122737 000001 001254 CMPB 3s MAP TENV, SENV > OPERATING UNDER APT? 
021330 001031 BNE $ ::1f NOT: BR 
021332 132737 000100 001255 BITB #APTSPOOL,SENVM ;;SHOULD SPOOL MESSAGES? 
021340 001425 BEQ 3$ :;1F NOT: BR 
021342 017600 000004 MOV a4(SP),RO ::GET MESSAGE ADDR. 
021346 062766 000002 000004 ADD #2,4(SP) :;BUMP RETURN ADDR. 
021354 005737 001234 1$: TST SMSGTYPE ::SEE 1F DONE W/ LAST XMISSION? 
021360 001375 BNE 1$ sr1F NOT: WAIT 
021362 010037 001250 MOV RO, SMSGAD ::PUT ADDR IN MAILBOX 
021366 105720 2$: TSTB (RO) + ::FIND END OF MESSAGE 
021370 001376 BNE 2$ 
021372 163700 001250 5UB SMSGAD,RO ::SUB START OF MESSAGE 
021376 006200 ASR RO ::GET MESSAGE LNGTH IN WORDS 
021400 010037 001252 MOV RO, SMSGLGT ::PUT LENGTH IN MAILBOX 
021404 012737 000004 001234 MOV #4, SMSGTYPE :: TELL APT TO TAKE MSG. 
021412 000413 BR 5$ 
021414 017637 000004 021440 35: MOV a4(SP) 4% ::PUT MSG ADDR IN JSR LINKAGE 
021422 062766 000002 000004 ADD #2,4(SP) --BUMP RETURN ADDRESS 
021430 013746 177776 MOV 177776,-(SP) ::PUSH 177776 ON STACK 
021434 004737 022366 JSR PC, $TYPE *:CALL TYPE MACRO 
Og toed 000000 48: wORD 0 
021442 105737 021530 10$: TSTB = SFFLG ::SHOULD REPORT FATAL ERROR? 
021446 001416 BEQ 12$ sr1F NOT: BR 
021450 005737 001254 TST SENV : RUNNING UNDER APT? 
021454 001413 BEQ 12% s:1F NOT: BR 
021456 005737 001234 11$: TST SMSGTYPE srFINISHED LAST MESSAGE? 
021462 001375 BNE 118 s;1F NOT: WAIT 
021464 017637 000004 001236 MOV Q4(SP),SFATAL  ;:GET ERROR # 
021472 062766 000002 000004 ADD #2,4(SP) :;BUMP RETURN ADDR. 
021500 005237 001234 INC SMSGTYPE :: TELL APT TO TAKE ERROR 
021504 105037 021530 12$: CLRB Ss SF FLG s:CLEAR FATAL FLAG 
021510 105037 021527 CLRB SLFLG >; CLEAR FLA 
021514 105037 021526 CLRB Ss SMFLG si CLEAR MESSAGE FLAG 
021520 012601 MOV (SP)+,R1 ::POP STACK INTO R1 
021522 012600 MOV (SP)+,RO ::POP STACK INTO RO 
021524 000207 RTS Pp + :RETURN 
021526 000 SMFLG: .BYTE 0 3 :MESSG. FLAG 
021527 00 $LFLG: .BYTE 0 ::L0G FLAG 
021530 000 SFFLG yA 0 sc FATAL FLAG 

000200 APTSIZE = 200 

000001 APTENV = 001 

000100 APTSPOOL= 100 
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APT COMMUNICATIONS ROUTINE SEQ 0100 


000040 APTCSUP = 040 
-SBTTL ERROR HANDLER ROUTINE 


s eee akereeaeeeererereererererereeeReKeeeeeneeateereReeReeeeeeee 


s*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
s*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
;*AND GO TO TYPERR ON ERROR 

aeaet SWITCH OPTIONS tag tae BY THIS ROUTINE ARE: 

:@ 


we 


+ #SW15= HALT ON ERRO 
:*SW13=1 INHIBIT ERROR TYPEOUTS 
:*SWl0=1 BELL ON ERROR 
i#Sw09=1 LOOP ON ERROR 
3* ERROR N :ERROR=EMT AND N=ERROR ITEM NUMBER 
021532 SERROR: 
021532 104407 CKSWR :;TEST FOR CHANGE IN SOFT=SWR 
021534 032777 000400 157412 BIT #SWO8,aSWR :SEND ERROR MESSAGE TO TTY? 
021542 001411 BEQ 7$  YES==BRANCH 
021544 005737 001324 TST LPTAVL :1S THERE A LINE PRINTER AVAILABLE? 
021550 001406 BEQ 7$ :NO--BRANCH 
021552 013737 001522 001164 MOV LPS, $STPS SYES==SETUP STATUS 
021560 013737 001524 001166 MOV LPB,$TPB [AND BUFFER REG.'S FOR LINE PRINTER 
021566 105237 001117 7$: INCB —- SERFLG :;SET THE ERROR FLAG 
021572 001775 BEQ 7$ ::DON'T LET THE FLAG GO TO ZERO 
021574 013777 001116 157354 MOV STSTNM,@DISPLAY ::DISPLAY TEST NUMBER AND ERROR FLAG 
021602 032777 002000 157344 BIT #B1T10.aSWR ::BELL ON ERROR? 
021610 001402 BEQ 1$ SINO - SKIP 
021612 104401 001224 TYPE $BELL [:RING BELL 
021616 005237 001126 1$: INC $ERTTL >:COUNT THE NUMBER OF ERRORS 
021622 011637 001132 MOV (SP), SERRPC ::GET ADDRESS OF ERROR INSTRUCTION 
021626 162737 000002 001132 SUB #2, SERRPC 
021634 117737 157272 001130 MOVB aSERRPC,$ITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
021642 032777 020000 157304 BIT #B1T13,aSWR ::SKIP TYPEOUT IF SET 
021650 001004 BNE 20$ ::SKIP TYPEOUTS 
021652 004737 022000 JSR PC, TYPERR ::G0 TO USER ERROR ROUTINE 
921656 104401 001231 a TYPE /SCRLE 
021662 122737 000001 001254 CMPB #APTENV,SENV  ;;RUNNING IN APT MODE 
021670 001007 BNE 2$ ::NO,SKIP APT ERROR REPORT 
021672 113737 001130 021704 MOVB $I1TEMB,21$ +:SET ITEM NUMBER AS ERROR NUMBER 
021700 004737 021302 JSR PC, SATY4 >:REPORT FATAL ERROR TO APT 
021704 000 21$: BYTE 
021705 000 -BYTE C 
021706 000777 22$: BR 228 : APT ERROR LOOP 
021710 005777 157240 2$: TST aSWR [HALT ON ERROR 
021714 100002 BPL 3$ ::SKIP IF CONTINUE 
021716 000000 HALT [HALT ON ERROR! 
021720 104407 CKSWR +: TEST FOR CHANGE IN SOFT-SWR 
021722 032777 001000 157224 38: BIT #B1T09,aSwWR >:LOOP ON ERROR SWITCH SET? 
021730 001402 BEQ 4 33 1F NO 
021732 013716 001124 MOV SLPERR, (SP) [:FUDGE RETURN FOR LOOPING 
021736 005737 001222 4$: TST SESCAPE [CHECK FOR AN ESCAPE ADDRESS 
021742 001402 BEQ 5$ ::BR IF NONE 
021744 013716 001222 = MOV SESCAPE, (SP) ::FUDGE RETURN ADDRESS FOR ESCAPE 
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ERROR HANDLER ROUTINE SEQ 0101 


021750 022737 021244 000042 CMP #SENDAD,a#42 = sACT=11 AUTO=ACCEPT? 
021756 001001 BNE 6$ ::BRANCH IF NO 
021760 000000 HALT 277 
$517 05 013737 001516 001164 - MO TPS, STPS :SET STATUS AND BUFFER REG.'S 
V ; US AND BU 
021770 013737 001520 001166 MOV TPB,S$TPB “FOR TTY 
. 021776 000002 RT] [RETURN FROM ERROR CALL 
: .SBTTL TYPERR = TYPE ERROR ROUTINE 
9 ;THIS ROUTINE USES THE “ITEM CONTROL BYTE’ (S$ITEMB) TO DETERMINE 
10 :WHICH ERROR 1S TO BE REPORTED, IT THEN OBTAINS, FROM THE "ERROR 
11 ;TABLE'' (SERRTB), AND REPORTS THE APPROPIATE INFORMATION 
N2 : CONCERNING THE ERROR. 
7 CALL 
14 ; JSR PC, TYPERR 
1? ; RETU 
17 022000 113737 001116 001212 TYPERR: MOVB $TSTNM,STMPO | ;SAVE THE TEST NUMBER 
18 022006 104412 SAVREG 7SAVE RO - . 
19 022010 162700 000004 SUB #4,RO :FORM TEST 
20 022014 010037 001176 MOV RO,SREGO COPY ROARS. iN $REGO-S$REGS 
21 022020 010137 001200 MOV 1,$REG1 
22 022024 010237 001202 MOV R2,$REG2 
23 022030 010337 001204 MOV R3,SREG3 
24 022034 010437 001206 MOV R4,SREG4S 
25 022040 010537 001210 MOV R5,$REGS 
PI 922064 113700 001130 MOVB $ITEMB,RO :PICKUP ERROR ITEM NUMBER 
27 022050 010001 MOV RO,R1 sAND COPY IT INTO R1 
28 022052 005300 DEC RO sFORM INDEX FOR ERROR TABLE 
29 022054 106300 ASLB RO 
30 022056 106300 ASLB RO 
31 022060 106300 ASLB RO 
32 022062 103002 BCC 1$ IS ERROR > 37? 
33 022064 062700 000240 ADD #1TEMG1-SERRTB, RO YES=-FORM OFFSET 
34 022070 062700 002002 1$: ADD #SERRTB,RO FORM ADDR ESS 
35 022074 012037 022110 MOV (RO)+,2$ [GET ERROR MESSAGE (eM) POINTER 
36 022100 001447 BEQ 7$ ‘BRANCH IF THERE ISN'T ONE 
37 022102 104401 001231 TYPE /SCRLF S"CARRIAGE RETURN - LINE FEED 
38 022106 104401 TYPE i 
39 022110 000000 23s: -WORD 0 :""EM'’ POINTER GOES HERE 
40 022112 162701 000041 SUB #41,R1 ;SPECIAL ERROR ITEM NUMBER? 
41 022116 100440 BMI :NO--BRANCH 
42 022120 013701 001354 MOV SVSTAT,R1 :GET STATUS/ERROR INDICATOR 
43 022124 106301 ASLB sR P ‘DONE’ BIT (BIT07) 
44 022126 006301 ASL R1 STRIP “ERROR BIT (B1T15) 
45 022130 012702 001750 MOV #STATBL,R2 ist ADDRESS ON STATUS MESSAGE POINTERS 
46 022134 005003 CLR R3 : CARRIAGE RETURN-LINE FEED SWITCH 
47 022136 104401 022144 TYPE ,65$ [;TYPE ASCIZ STRING 
022142 000402 BR 4$ >:GET OVER THE ASCIZ 
3:65$: .ASCIZ / (/ 
022150 64$: 
48 022150 012237 022172 3$: MOV (R2)+,5$ MESSAGE POINTER 
49 022154 006301 ASL R1 TYPE THIS MESSAGE? 
50 022156 103013 BCC OOS ZNO=-BRANCH ey 
51 022160 005103 COM R3 TYES=-TYPE A CR’ & "'LE'? 
52 022162 001002 BNE 4% *NO=-BRANCH 
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TYPE ERROR ROUTINE SEQ 0102 
53 022164 104401 001231 TYPE  ,$CRLF YES 
8e 055175, gpoceG EB ea :MESSAGE POINTER GOES HERE 
: oW . . H 
56 022174 005701 TST R1 ‘MORE 10 1 
3% 055208 s04e07 046657 Free “pumas iMYpE 2 SP SACES 
LNK Y 
59 022204 000761 BR 8$ 
60 022206 001360 6$: BNE 3$ SO RANCH IF NOT i 
61 022210 104401 022216 TYPE ,67$ +; TYPE ASCIZ STRING 
022214 000401 BR 66$ 3;GET OVER THE ASCIZ 
3:67$: .ASCIZ /)/ 
022220 66S: 
62 022220 012037 022234 7$: MOV (RO)+,8$% sPICK UP eo HEADER (DH) POINTER 
63 022224 001404 BEQ 9$ ‘BRANCH IF NONE 
64 022226 104401 001231 TYPE , SCRLF 3; CARRIAGE RETURN-LINE FEED 
65 022232 104401 TYPE 
66 022234 0000 8$: WORD 0 :"'DH'’ POINTER GOES HERE 
67 022236 012001 9$: MOV (RO)+,R1 sPICKUP DATA TABLE (DT) POINTER 
68 022240 001450 BEQ 20$ ‘BRANCH IF NONE 
69 022242 005005 CLR R5 sSET INDENT SWITCH 
70 022244 012000 MOV (RO)+,RO ;DATA FORMAT (DF) POINTER 
71 022246 012002 MOV (RO)+,R2 sNUMBER OF DH'S TO TYPE 
72 022250 001441 BEQ 17$% ‘BRANCH A DH NUMBER IS 0 
73 022252 005105 COM RS ‘NO INDENT 
74 022254 104401 001231 TYPE , SCRLF ; CARRIAGE RETURN-LINE FEED 
75 022260 112003 10$: MOVB (RO)+,R3 ‘NUMBER OF DATA WORDS TO TYPE 
76 022262 112004 MOVB (RO)+,R4 ‘AND HOW TO TYPE THEM 
77 beesbe 0908s 11$: ROR R4 sOCTAL OR DECIMAL? 
78 0 66 103403 BCS 12$ ;DECIMAL--BRANCH 
79 022270 013146 MOV a(R1)+,-(SP) s;SAVE a(R1)+ FOR TYPEOUT 
022272 104402 TYPOC 3:G0 TYPE--OCTAL ASCII(ALL DIGITS) 
80 022274 000402 BR 13$ 
81 022276 128: 
022276 013146 MOV a(R1)+,-(SP) s SAVE a(R1)+ FOR TYPEOUT 
022300 104405 TYPDS 3580 oe ASCII WITH SIGN 
82 022302 005303 13$: DEC R3 ORE NUMBERS TO TYPE? 
83 022304 001403 BEQ 14$ ey NCH 
84 022306 104401 046657 TYPE BLNKS2 ;TYPE 2 SPACES 
85 022312 00076 BR i1$ * LOOP 
86 022314 005302 14$: DEC R2 sMORE DH'S? 
87 022316 003421 BLE 20$ :NO=-BRANCH 
88 022320 104401 001231 TYPE , SCRLF fo me ha A NEW LINE 
89 022324 005105 COM R5 INDENT 
90 022326 001002 BNE 15$ SHO CBRANCH 
91 022330 104401 046657 TYPE »BLNKS2 sTYPE 2 SPACES 
92 022334 012037 022342 15$: MOV (RO)+, 16% [GET NEXT DH 
93 022340 104401 TYPE SAND TYPE IT 
94 022342 000000 16$: » WORD 0 sDH POINTER GOES HERE 
95 022344 104401 001231 TYPE , SCRLF sCARRIAGE RETURN-LINE FEED 
96 022350 005705 TST R5 INDENT? 
97 022352 001342 BNE 10$ :NO=-BRANCH 
98 022354 104401 046657 17$: TYPE BLNKS2 : TYPE 2 SPACES 
99 022360 000737 BR 10$ LOO 
100 022362 104413 20$: RESREG RESTORE RO - R5 
101 022364 000207 RTS PC RETURN 
103 -SBTITL TYPE ROUTINE 
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TYPE ROUT i NE SEQ 0103 


ITP iii iii iii iii iiiiiiiiiiiiiit) 

¢ #ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 B at F 

+s THE ROUTINE WILL ree A_ NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 

3 *NOTE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARALTER. 
:*NOTE2: SPILLS CONTAINS THE NUMBER OF FILLER ws REQUIRED. 

3 #NOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER 


CAL 
eT) ‘USING A TRAP INSTRUCTION 
TYPE ,MESADR ;IMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


OR 
ie TYPE 
7* MESADR 
;* 
022366 105737 001173 $TYPE: TSTB STPFLG 3:18 THERE A TERMINAL? 
022372 100002 BPL 1$ 3:BR IF YES 
022374 000000 HALT # HALT HERE IF NO TERMINAL 
022376 000430 BR 3$ i vE 
022400 010046 1$: MOV RO,-(SP) 7:SAVE RO 
022402 017600 000002 MOV a2(SP),RO i3GET ADDRESS A: ASCIZ STRING 
022406 122737 000001 001254 CMPB #APTENV, SENV RUNNING IN APT MODE 
022414 001011 BNE 62$ :INO, GO CHECK FOR — ens 
022416 132737 000100 001255 B1T8 #APTSPOOL , SENVM : SPOOL MESSAGE TO A 
022424 001405 BEQ 62$ 3:NO0,GO CHECK FOR CON NSOLE 
022426 010037 022436 MOV RO,61$ 3;SETUP MESSAGE re FOR APT 
Ses eee sett 021272 JSR PC, SATY3 : SPOOL MESSAGE T0 A 
022436 0000 61$: . WORD 33MESSAGE ADDRESS 
022440 132737 000040 001255 62%: B1TB #APTCSUP,SENVM ;3APT CONSOLE SUPPRESSED 
022446 001003 BNE sYES,SKIP TYPE OUT 
022450 112046 2$: MOVB (RO)+,-(SP) 3 ;PUSH eT to BE hag one STACK 
022452 001005 BNE 4$ 3;BR IF IT ISN'T THE TERMINA 
022454 005726 TST (SP)+ tr1F TERMINATOR. POP IT OFF THES STACK 
022456 012600 60$: MOV (SP)+,R0 ;;RESTORE RO 
224 062716 000002 3$: ADD #2, (SP) s;ADJUST RETURN PC 
022464 000002 RT] 3 RETURN 
022466 122716 000011 4$: CMPB #HT, (SP) :;BRANCH IF <HT> 
022472 001430 BEQ 
022474 122716 000200 CMPB #CRLF, (SP) 3;BRANCH IF NOT <CRLF> 
022500 001006 BNE 5$ 
022502 005726 TST (SP)+ ::POP <CR><LF> EQUIV 
022504 104401 TYPE 3: TYPE A CR AND LF 
022506 001231 SCRLF 
022510 105037 022716 CLRB SCHARCNT 3: CLEAR CHARACTER COUNT 
022514 000755 BR 23 73GET NEXT Serge 
022516 004737 022600 5$: JSR PC ,STYPEC +260 TYPE Lie CHARACTER 
022522 123726 001172 6$: CMPB SFILLC,(SP)+ 31S 11 TIME FOR eee CHARS.? 
022526 001350 BNE 2$ iii O GO GET NEXT 
022530 013746 001170 MOV S$NULL,-(SP) s36ET “# OF FILLER ¢ CHARS. “NEEDED 
022534 105366 000001 7$: DECB 1(SP) 3:DOES A NULL NEEDY TO BE TYPED? 
022540 002770 BLT 6$ 7:BR IF we ed THE NULL OFF OF STACK 
022542 004737 022600 JSR PC, STYPEC 3:G0 TYPE A 
022546 105537 022716 DECB SCHARCNT :2D0 NOT COUNT “Ks A COUNT 
022552 000770 BR ' 7% ;;LO0P 
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TYPE ROUTIN SEQ 0104 
;HORIZONTAL TAB PROCESSOR 
022554 112716 000040 8$: MOVB so #"_ (SP) i REPLACE TAB WITH SPACE 
022560 004737 022600 9$: JSR PC, $TYPEC *: TYPE A SPACE 
022564 132737 000007 022716 BITB #7. SCHARCNT [:BRANCH IF NOT AT 
022572 001372 BNE 9 STAB STOP 
022574 005726 TST (SP)+ ::POP SPACE OFF STACK 
022576 000724 BR 2$ +:GET NEXT CHARACTER 
022600 STYPEC: 
022600 105777 156354 TSTB = @STKS ::CHAR IN KYBD BUFFER? 
022604 100022 BPL 10$ ;3BR_1F NOT 
022606 017746 156350 MOV as$TKB,-(SP) :GET CHAR 
022612 042716 177600 BIC #177600,(SP) =: STRIP EXTRANEOUS BITS 
022616 122716 000023 CMPB so WS XOFF, (SP) 33WAS CHAR XOF F 
022622 001012 BNE 102$ ::BR IF NOT 
022624 101$: 
022624 105777 156330 STB = @STKS ::WAIT FOR CHAR 
022630 100375 BPL 101$ 
022632 117716 156324 MOVB a$TKB, (SP) ::GET CHAR 
22636 042716 177600 BIC #177600,(SP)  ::STRIP IT 
022642 122716 000021 CMPB  —s_- #$XON,, (SP) ::WAS IT XON? 
022646 001366 BNE 101$ :7;BR IF NOT 
022650 102$: 
022650 005726 TST (SP)+ srFIX STACK 
022652 10$: 
022652 105777 156306 TSTB = aSTPS :;WAIT UNTIL PRINTER IS READY 
022656 100375 BPL 10$ 
22 116677 000002 156300 MOVB 2(SP),a$TPB ::LOAD CHAR TO BE TYPED INTO DATA REG. 
22666 122766 000015 000002 CMPB ss CR, 2¢ SP) :i1S CHARACTER A CARRIAGE RETURN? 
022674 001003 BNE 1$ ‘BRANCH IF NO 
022676 105037 022716 CLRB = $CHARCNT 3s YES==CLEAR CHARACTER COUNT 
022702 000406 BR STYPEX IT 
022704 122766 000012 000002 1S: CMPB ss LF, 2(SP) t:IS CHARACTER A LINE FEED? 
022712 001402 BEQ $TYPEX ::BRANCH IF YE 
022714 105227 INCB ss (PC) + ::COUNT THE CHA SRA CTER 
022716 000000 SCHARCNT:.WORD 0 - CHARACTER COUNT STORAGE 
022720 000207 STYPEX: RTS PC 
104 
105 .SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


Strict iii ii iii iii iii titi iii it iii 

SSTHIS ROUTINE IS USED TO — A 16-BIT BINARY NUMBER TO A 6-DIGIT 
S*OCTAL (ASCII) NUMBER AND TYPE IT. 

i #$TYPOS-=-ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


: *$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST | 
;*$TYPOS OR $TYPOC 


>*CALL: 


* | MOV" NUM, (SP) ::NUMBER TO BE TYPED 


:*CALL: 
3 MOV NUM, -(SP) NUMBER TO BE TYPED 
38 TYPOS s:CALL FOR TYPEOUT 
i BYTE N 7iN=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
if -BYTE M > :M=1 OR 0 
7° i; 1=TYPE LEADING ZEROS 
;* 7;0=SUPPRESS LEADING ZEROS 
*® 


a — - re ————— j 


ee ee ee 9 
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BINARY TC OCTAL (ASCII) AND TYPE SEQ 0105 

* TYPON s:CALL FOR TYPEOUT 

*@ 

i #$TYPOC“--ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 

*@ . 

* MOV NUM, =(SP) ;;NUMBER TO BE TYPED 

te TYPOC *:CALL FOR TYPEOUT 
022722 017646 000000 STYPOS: MOV a(SP),<(SP) ::PICKUP THE MODE 
022726 116637 000001 023145 MOVB 1(SP),SOFILL  ;;LOAD ZERO FILL SWITCH 
022734 112637 023147 MOVB (SP)+,SOMODE+1 ;;NUMBER OF DIGITS TO TYPE 
022740 062716 000002 ADD #2, (SP) S:ADJUST RETURN ADDRESS 
022744 000406 BR $TYPON 
022746 112737 000001 023145 S$TYPOC: MOVB ¥#1,$0FILL ::SET THE ZERO FILL SWITCH 
022754 112737 000006 023147 MOVB #6,$OMODE+1 7:SET FOR SIX(6) DIGITS 
022762 112737 000005 023144 S$TYPON: MOVB #5.S$OCNT ::SET THE ITERATION COUNT 
022770 010346 MOV R3,-(SP) T:SAVE R3 
022772 010446 MOV R4,-(SP) TI SAVE RG 
022774 010546 MOV R5,-(SP) 77 SAVE RS 
022776 113704 023147 MOVB $OMODE+1,R4 ::GET THE NUMBER OF DIGITS TO TYPE 
023002 005404 NEG RG 
023004 062704 000006 ADD #6 RG ::SUBTRACT IT FOR MAX. ALLOWED 
023010 110437 023146 MOVB = R4, SOMODE +:SAVE IT FOR USE 
023014 113704 023145 MOVB = SOFILL,R4 [:GET THE ZERO FILL SWITCH 
023020 016605 000012 MOV 12(SP)_RS ::PICKUP THE INFUT NUMBER 
023024 005003 CLR R3 [CLEAR THE OUTPUT WORD 
023026 006105 1$: ROL R5 ::ROTATE MSB INTO "'C'' 
SEStae taht 28 + a <FORM THIS DIGIT 

: L 33 

$538 irate ROL R5 
023036 006105 ROL R5 
23040 010503 MOV R5,R3 
023042 006103 3$: ROL R3 ::GET LSB OF THIS DIGIT 
023044 105337 023146 DECB $OMODE >: TYPE THIS DIGIT? 
023050 100016 _ BPL 7:BR IF NO 
023052 042703 1/7770 BIC #177770,R3 [:GET RID OF JUNK 
023056 001002 BNE 4$ >: TEST FOR 0 
23060 005704 TST RG >:SUPPRESS THIS 0? 
023062 001403 EQ 5$ 33 F YES 
023064 005204 4$: INC RG ::DON'T SUPPRESS ANYMORE 0'S 
023066 052703 000060 BIS #°0,R3 [MAKE THIS DIGIT ASCII 
023072 052703 000040 5$: BIS # RB ::MAKE ASCII IF NOT ALREADY 
023076 110337 023142 MOVB = R3,, BS >:SAVE FOR TYPING 
023102 106401 023142 TYPE 8 7:60 TYPE THIS DIGIT 
023106 105337 023144 7$: DECB —-« S$OCNT [:COUNT BY 1 
023112 003347 BGT 2$ ::BR IF MORE TO DO 
023114 002402 BLT 6$ 7:BR IF DON 
023116 005204 INC RG >: INSURE LAST DIGIT ISN'T A BLANK 
023120 000744 BR 2$ 7:60 DO THE LAST DIGIT 
023122 012605 68: MOV (SP)+,R5 *:RESTORE RS 
023124 012604 MOV (SP)+,R4 T RESTORE R& 
023126 gt 603 MOV (SP)+.R3 ::RESTORE R3 
0231 16666 000002 000004 MOV 2(SP),4(SP) +:SET THE STACK FOR RETURNING 
023136 012616 MOV (SP)+, (SP) 
023140 000002 RTj 7 RETURN 
023148 v00 8$: .BYTE 0 +: STORAGE FOR ASCII DIGIT 
02314 000 “BYTE 0 +: TERMINATOR FOR TYPE ROUTINE 
023144 000 SOCNT: .BYTE 9 [:OCTAL DIGIT COUNTER 


em, 
CZRAVAO RMOS/3/2 EXT'D DR TST MACRO VO3.01 11-APR-B80 15:01:20 PAGE 14-8 


BINARY TC OCTAL (ASCI1) AND TYPE SEQ 0106 
023145 000 SOFILL: .BYTE 0 ;3ZERO FILL SWITCH 
106 b53ic6 000000 SOMODE: .WORD 0 ; NUMBER OF DIGITS TO TYPE 
107 -SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


sp eeeeeeereererererrerereererereneetenenaeeneeeneeereneeeeeeeneee 


3*THI1S ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
>*SIGNED DECIMAL (ASCI1) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
;*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
;*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
a WITH SPACES. 

;*CALL: 


e MOV NUM, -(SP) ::PUT THE BINARY NUMBER ON THE STACK 
ie TYPDS 7:60 TO THE ROUTINE 

023150 STYPDS: 

023150 010046 MOV RO,-(SP) ::PUSH RO ON STACK 

023152 010146 MOV R1,-(SP) +:PUSH R1 ON STACK 

023154 010246 MOV R2,-(SP) :;PUSH R2 ON STACK 

023156 010346 MOV R3,-(SP) ::PUSH R3 ON STACK 

023160 010546 MOV R5,-(SP) ::PUSH R5 ON STACK 

023162 012746 020200 MOV #26200, -(SP) ::SET BLANK SWITCH AND SIGN 
023166 016605 000020 MOV 20(SP).R5 >:GET THE INPUT NUMBER 

023172 100004 BPL 1$ ::BR IF INPUT IS 

023174 005405 NEG R5 ::MAKE THE BINARY NUMBER POS 
023176 112766 000055 000001 MOVB = #*=, 1( SP) ::MAKE THE ASCII NUMBER NEG. 
023206 005000 1$: CLR RO ::ZERO THE CONSTANTS INDEX 
023206 012708 23364 MOV #SDBLK,R3 :;SETUP THE OUTPUT POINTER 

023212 1127 00040 MOVB ow, (R8)4 ::SET THE FIRST CHARACTER TO A BLANK 
023216 005002 2s: CLR R ::CLEAR THE BCD NUMBER 

023220 016001 023354 MOV SDTBL(RO),R1 ::GET THE CONSTANT 
023224 160105 3$: SUB R1,R5 ::FORM THIS BCD DIGIT 
023226 002402 BLT 4$ ::BR IF DONE 

23230 005202 INC R2 >: INCREASE THE BCD DIGIT BY 1 
023232 000774 BR 3$ 

23234 060105 4$: ADD R1,R5 :;ADD BACK THE CONSTANT 

23236 005702 1ST R2 >:CHECK IF BCD DIGIT=0 

023240 001002 BNE 5$ ::FALL THROUGH IF 0 

023242 105716 STB ss (SP) ::STILL DOING LEADING 0°S? 
023244 100407 BMI 7$ ::BR IF YES 

023246 106316 5$ ASLB ss (SP) +: MSD? 

023250 103003 BCC 6$ ::BR IF NO 

023252 116663 000001 177777 MOVB 1(SP),-1(R3) 7 YES=-SET THE SIGN 

023260 052702 000060 6$: 81S #'0,R2 ::MAKE THE BCD DIGIT ASCII 

023264 052708 000040 7$: BIS #' ,R2 ::MAKE IT A SPACE IF NOT ALREADY A DIGIT 
023270 11 32 MOVB = R2, (R3)+ >:PUT THIS CHARACTER IN THE OUTPUT BUFFER 
023272 005720 TST (RO) + +:JUST INCREMENTING 

023274 020027 000010 CMP RO,#10 ::CHECK THE TABLE INDEX 

02 grag BLT 2$ ::G0 DO THE NEXT DIGIT 

023302 2 BGT 8$ 3:60 TO EXIT 

023306 010502 MOV R5,R2 ::GET THE LSD 

0 3306 000764 BR 6$ 7:60 CHANGE TO ASCII 

02331 105726 83: STB 3s (SP) + *:WAS THE LSD THE FIRST NON-ZERO? 
023312 10000 BPL a3 F NO 

023314 116063 177777 177776 MOVB <-1(SP),-2(R3) 3; YES--SET THE SIGN FOR TYPING 
023322 105013 9$: CLRB (R3) ::SET THE TERMINATOR 

023324 012605 MOV (SP)+,R5 >:POP STACK INTO RS 


CZRAVAO RMOS/3/2 EXT'D DR TST 
CONVERT BiNARY TO DECIMAL AND TYPE ROUTIN 


0 01260 
0 + 60 
0 2 012601 
023 012600 
02 104401 023364 
BS 016666 000002 000004 
023350 012616 
Oe eee 000002 
023354 023420 
023356 001750 
023360 000144 
023362 000012 
023364 
108 
109 


23400 000000 
023402 
023404 

023404 005037 023374 
023410 012737 023402 023376 
023416 013737 023376 023400 
023424 012737 023454 000060 
023432 012737 000200 000062 
023440 005777 155516 
023444 012777 000100 155506 
023452 000207 
023454 117746 155502 
023460 merle 177600 
Oe 666 021627 000003 
023470 001007 
023472 Hogs 024604 
023476 004737 023404 
023502 99/8 
023504 0001 004612 
025510 021627 600007 
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MOV (SP)+,R3 ::POP STACK INTO R3 

MOV (SP)+.R2 ':POP STACK INTO R2 

MOV (SP)+-R1 ::POP STACK INTO RI 

MOV (SP)*-RO ::POP STACK INTO RO 

TYPE SDBLK ::NOW TYPE THE NUMBER 

MOV 3(SP) ,4(SP) >: ADJUST THE STACK 

MOV (SP)+_ (SP) 

RT] : ;RETURN TO USER 
$DTBL: 10000. 

1000. 

100. 

10 


SDBLK: .BLKW 4 
.SBTTL TTY INPUT ROUTINE 


———WeARAAAAAR AAA SAA ARASAREASALASASALESESE SE EEE EERE EE EERE SER EERE RES SY 


; NUMBER OF ITEMS IN QUEUE 
;: INPUT POINTER 

OUTPUT POINTER 

3: TTY KEYBOARD QUEUE 


we 
~ 
n 
o 
z 
— 
o 

<£ 
oOo 
z 
LJ 
oOo 


0 
STKQOUT: .WORD 0 
STKQSRT: .BLKB 2 
STKQEND=. 


:*TK INITIALIZE ROUTINE 
:*THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
:*SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 


S*CALL: 
;* JSR PC, STKINT 
:* RETURN 


$TKINT: CLR STKCNT ;CLEAR COUNT OF ITEMS IN QUEUE 
MOV #STKQSRT ,STKQIN : MOV VE THE STARTING ADDRESS OF THE 
MOV STKQIN,STKQOUT ;;QUEUVE INTO THE INPUT & OUTPUT POINTERS. 
MOV #STKSRV, QM TKVEC ;3 INITIALIZE THE KEYBOARD VECTOR 
MOV #200, ,a#TKVEC+2 ;;"BR'' LEVEL ® 


TST astKB 3:CLEAR DONE FL 
MOV #100 ,asTKs ;;ENABLE TTY KEYBOARD INTERRUPT 
RTS PC RETURN TO CALLER 


:#TK SERVICE ROUTINE 

:*THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 

;*BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 

:e1T IN THE QUEUE. 

T#1F THE CHARACTER IS A “CONTROL-C"' (*C) STKINT IS CALLED AND 

;*UPON RETURN EXIT IS MADE TO THE “CONTROL-C" RESTART ADDRESS (START2) 


$TKSRV: MOVB a$TKB,-(SP) ::PICKUP THE CHARACTER 
BIC #°C177, (SP) - 
CMP (SP) #3 1S 
BNE 1$ >:BRANCH IF N 
TYPE ,SCNTLC S:TYPE A CONTROL-C (*C) 
JSR PC, STKINT ti INIT THE KEYBOARD 
1ST (SP) >:CLEAN UP STACK 
JMP START2 >: CONTROL C RESTART 

1$: CMP (SP) ,#7 +:1S 17 A CONTROL G? 


SEQ 0107 
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Y INPUT ROUTINE SEQ 0108 

023514 001004 BNE 28 : :BRANCH IF NO 

023516 022737 000176 001154 CMP #SWREG, SWR :1S SOFT=SWR SELECTED? 

023524 001500 BEQ 6g 7:60 TO SWR CHANGE 

0235 r 2s: 

023526 022737 000002 023374 CMP #2, STKCNT s718 THE QUEUE FULL? 

023534 001004 BNE 3$ : :BRANCH H IF NO 

0335 104401 001224 TYPE ,SBELL RING THE TTY BELL 

023542 005726 TST (SP)¢+ 73 CLEAN CHARACTER OFF OF STACK 

023544 000451 BR 5$ I 

033346 021627 000023 3$: CMP (SP) #23 t:1$ 17 A CONTROL-S? 

023552 001021 BNE 328 ;;BRANCH IF _NO 

023554 005077 155400 CLR astKs :DISABLE TTY KEYBOARD INTERRUPTS 

023560 905726 TST (SP)¢ S:CLEAN CHAR OFF STACK 

023562 1057 155372 31$: TSTB  =—s_ AS TKS ;:WAIT FOR A CHA 

023566 100375 BPL 31$ ;;LOOP UNTIL ITS THERE 

023570 117746 155366 MOVB a$TKB,-(SP) ::GET THE CHARACTE 

023574 042718 177600 BIC #°C177, (SP) ::MAKE IT 7=BIT ASCII 

023600 022627 000021 CMP (SP)+,#21 ::18 11 A CONTROL-Q? 

023604 001366 BNE 31% ;;BRANCH IF NO 

023606 012777 000100 155344 MOV #100, ,a$TKS ssREEMAOLE TTY KEYBOARD INTERRUPTS 

023614 900002 RTI 7 ;RETURN 

023616 005237 023374 32%: INC STKCNT 3 COUNT THIS CHARACTER 

023622 021627 000140 CMP (SP) ,#140 31S IT UPPER CASE? 

023626 002405 BLT 4$ ; BRANCH H IF YES 

023630 021627 000175 CMP (SP), #175 : IT A SPECIAL CHAR? 

023634 003002 BGT 4$ ‘BRANCH IF YES 

023636 942716 000040 BIC #40, (SP) i MAKE IT UPPER CASE 

0 112677 177530 4$: MOVB (spss. asTKQIN D PUT IT IN QUEUE 

023646 005237 023376 INC STKQIN UPDATE THE POINTER 

023652 023727 023376 023404 CMP STKQIN, #STKQEND ::GO OFF THE END? 

023660 001003 BNE 5$ ‘BRANCH IF NO 

023662 012737 023402 023376 MOV #STKOSRT,STKQIN SCRESET THE POINTER 

023670 000002 5$: RT] + RETURN 
peeteekaeeeeeeeetereereereeeereeeeeneeeeeeeeeheeeeneeteeeeeeeeeee 
+ SSOF TWARE SWITCH REGISTER CHANGE ROUTINE. 
S*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 
S*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP 
-#CALL WHEN OPERATING IN TTY INTERRUPT MODE. 

023672 022737 000176 001154 $CKSWR: CMP #SWREG, SWR s:1S THE SOFT-SWR SELECTED 

023700 001124 BNE 5$ ssEXIT IF NOT 

023702 105777 155252 TSTB) 3s @STKS :1S A CHAR WAITING? 

023706 100121 BPL 15$ s:1F NOT, EXIT 

023710 117746 155246 MOVB a$TKB,-(SP) 

023714 042716 177600 BIC #°C17?, (SP) *:MAKE IT 7-BIT ASCII 

023720 021627 000007 CMP (SP) ,#? ::1$ IT A CONTROL-G? 

023726 001300 BNE 2$ ::1F NOT, PUT IT IN THE TTY QUEUE 

> AND EXiT 
peerteerterererteeerereererererereetaeeetankeeeeeeeeReeeneteeeeees 
* CONTROL 1S PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE 
s*ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF A 
, S*®CONTROL=G BEING TYPED, AND THE SOFTWARE SWITCH REGISTER BEING SELECTED. 

023726 123727 001150 000001 6s: CMPB Ss SAUTOB, #1 77 ARE WE RUNNING IN AUTO-MODE? 

023734 001674 BEQ 2s >:BRANCH IF YES 

023736 005726 TST (SP)¢ =: CLEAR CONTROL-G OFF STACK 
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¥ INPUT ROUTINE SEQ 0109 
023740 004737 023404 JSR PC ,STKINT ::FLUSH THE TTY INPUT QUEUE 
Seep 005077 138540 CLR astxs ::DISABLE TTY KEYBOARD INTERRUPTS 
023750 112737 000001 001151 MOVB = #1, SINTAG ::SET INTERRUPT MODE INDICATOR 
023756 106401 024616 TYPE SCNTLG :;ECHO THE CONTROL=G (*G) 
023762 106401 024623 SGTSWR: TYPE ‘SMSwWR [TYPE CURRENT CONTENTS 
023766 013746 000176 MOV SWREG,<(SP) : SAVE SWREG FOR TYPEOUT 
023772 104402 TYPOC +360 TYPE*-OCTAL ASCII CALL DIGITS) 
023774 104401 024634 TYPE , SMNEW +: PROMPT FOR NEW SWR 
024000 005046 19$: CLR =(SP) >: CLEAR COUNTER 
024002 005046 CLR -($P) 7: THE NEW SWR 
024004 105777 155150 7$: TSTB = @STKS S:CHAR THERE? 

024010 100375 BPL 7$ s;1F NOT TRY AGAIN 
024012 117746 155144 MOVB = a@STKB, -(SP) ::PICK UP CHAR 
024016 042716 177600 BIC #°C177, (SP) ::MAKE IT 7*BIT ASCII 
024022 021627 000003 CMP (SP), #3 s:IS ITA CONTROL- C? 
024026 001015 BNE 9$ ::BRANCH IF 
024030 104401 024604 TYPE »SCNTLC 37YES, ECHO a ce <7) 
024034 062706 000006 ADD #6,SP S:CLEAN UP STACK 
024040 123727 001151 000001 CMPB SINTAG,#1 ;;REENABLE TTY KEYBOARD INTERRUPTS? 
4046 001003 BNE 8$ :;BRANCH IF NO 
924050 012777 000100 155102 MOV #100,aS$TKS SIALLOW TTY KEYBOARD INTERRUPTS 
024056 000137 004612 8S: JMP START2 ::CONTROL=C RESTART 
024062 021627 000025 9$: CMP (SP) ,#25 :r1S 17 A CONTROL-U? 
4066 001005 BNE 10% :;BRANCH IF NOT 
024070 104401 024611 TYPE ,SCNTLU 37 YES, ECHO CONTROL=-U (“U) 
024074 062706 000006 208: ADD #6,SP ::I1GNORE PREVIOUS INPUT 
024100 000737 BR 19% s7LET'S TRY IT AGAIN 
024102 021627 000015 10$: CMP (SP) ,#15 3718 IT A <CR>? 
024106 001022 BNE 16% ; ;BRANCH IF NO 
024110 005766 000904 TST 4(SP) s7YES, IS IT THE FIRST CHAR? 
024114 001403 BEQ 11$ ::BRANCH IF YES 
024116 016677 000002 155030 MOV 2(SP) ,aSwR [i SAVE NEW SWR 
024124 062706 000006 118: ADD #6,S ;;CLEAR UP STACK 
024130 104401 001231 14$: TYPE SCRLF s;ECHO <CR> AND <L 
0241346 123727 001151 000001 CMPB ss SINTAG, #1 +:RE-ENABLE TTY : ase INTERRUPTS? 
024142 001003 BNE 15$ ‘:BRANCH IF NOT 
024144 012777 000100 155006 MOV #100,a$TKS 7 RE-ENABLE TTY KBD INTERRUPTS 
024152 000002 15$: RTI +: RETURN 
024154 004737 022600 16$: JSR PC, ,STYPEC 3:ECHO CHAR 
24160 021627 000060 CMP (SP) ,#60 :;CHAR < Q? 
024164 002420 BLT 18% ::BRANCH IF YES 
050198 021627 000067 CMP (SP) , #67 ::CHAR > 7? 
024172 003015 BGT 18% *:BRANCH IF YES 
024174 042726 000060 BIC #60, (SP)+ :iSTRIP=OFF ASCII 
024200 005766 000002 1ST 2(SP) [1S THIS THE FIRST CHAR 
024206 001403 BEQ 17$ : }BRANCH IF YES 
0242 006316 ASL (SP) ‘oes PRESENT 
02421 0065316 ASL (SP) i “ R OVER TO MAKE 
024212 006316 ASL (SP) ROOM FOR NEW ONE. 
024214 005266 000002 17$: INC 2(SP) SIKEEP COUNT OF CHAR 


9 
Sh RMVAO git EXT'D DR TST MACRO VO3.01 11-APR-80 15:01:20 PAGE 14-12 


INPUT ROUTI SEQ 0110 
024220 056616 177776 BIS =2(SP), (SP) :SET IN NEW CHAR 
024224 000667 BR 7$ IGE THE NEXT ONE 
024226 104401 001230 18$: TYPE $QUES s TYPE ?<CR><LF> 
024222 000720 ion BR b0$ SSSIMULATE CONTROL-U 
. L 


,;eeetekeeeeeeeeereeeeeeteteeereneneneeeReeeeeeeeteeeeeteneeeeene 


:STH1S. ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


*‘@ 
7* RDCHR 3;;GET A CHARACTER FROM THE QUEUE 
3* RETURN HERE ;;CHARACTER IS ON THE STACK 
3° ;;WITH PARITY BIT STRIPPED OFF 
024234 011646 SRDCHR: MOV (SP) ,-(SP) : PUSH DOWN THE PC AND 
024236 016666 000004 000002 MOV 4(SP),2(SP) PS 
024244 005066 000004 CLR 4(SP) IGET READY FOR A CHARACTER 
024250 005046 CLR -(SP) ;;PUT NEW PS ON STACK 
024252 012746 024260 MOV #64$,-(SP) ;;PUT NEW PC ON STACK 
024256 000002 RT] ;;POP NEW PC AND PS 
024260 64$: 
024260 005737 023374 18: TST STKCNT ;;WAIT ON A CHARACTER 
024264 001775 BEQ 1$ 
024266 005337 023374 DEC STKCNT ;DECREMENT THE COUNTER 
024272 117766 177102 000004 MOVE a$TKQOUT ,4(SP) £381 ONE CHARACTER 
024300 005237 023400 INC $TKQOUT PDATE THE POINTER 
24304 pesret 023400 023404 CMP $TKQOUT, #STKQEND "7410 iv ¥ OFF OF THE END? 
024312 1003 BNE 2s NCH NO 
024314 012737 023402 023400 MOV #STKQSRIT, $TKQOUT i gRESET THE POINTER 
024322 000002 2s: RTI 3s RETURN 
petekeeeeeeeeeeeeeeereeeeeeeteeeeeeeeeteeeeeekeeteeeaeeeeeeteeeee 
zSTHIS ROUTINE WILL INPUT A STRING FROM THE TTY 
3*CALL: 
i* RDLIN ;; INPUT A STRING FROM THE TTY 
ye RETURN HERE ; ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
yf 3; TERMINATOR WILL BE A BYTE OF ALL O'S 
024324 010346 S$RDLIN: MOV R3,-(SP) 77 SAVE R3 
024326 005046 CLR -(§P) 3;;CLEAR THE RUBOUT KEY 
024330 012703 024560 1$: MOV #STTYIN,R3 3:GET ADDRESS 
024334 022703 024604 23: CMP SSITYING2O. R3 3 BUFFER FULL? 
024340 101456 BLOS 4$ YES 
024342 104410 RDCHR ::60 Ha A. CHARACTER FROM THE TTY 
024344 112613 MOVB (SP)+,(R3) :2GET CHARACTER 
24346 122713 000177 10$: CMPB #177, (R3) S ITA RUBOUT 
024352 001022 BNE 5$ ::BR IF NO 
024354 005716 TST (SP) 3:18 THIS THE FIRST RUBOUT? 
024356 001007 BNE 6$ :;BR IF NO 
024360 112737 000134 024556 MOVB a'\,9 37 TYPE A BACK SLASH 
24366 104401 024556 TYPE P 
024372 012716 177777 MOV #-1, (SP) 3:SET THE RUBOUT KEY 
024376 005303 6$: DEC R3 ;;BACKUP BY ONE 
024400 4 54H 024560 CMP R3,@STTYIN 3: STACK EMPTY? 
024404 103454 BLO 4$ ::BR IF YES 
024406 111337 024556 MOVB (R3),9% a A TO TYPEOUT THE DELETED CHAR. 
024412 104401 0624556 TYPE % 3:60 TYPE 
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INPUT ROUTIN SEQ 0111 
024416 000746 BR 2$ ::G0 READ ANOTHER CHAR. 
024420 005716 5$: TST (SP) : :RUBOUT KEY SET? 
024422 001406 BEQ 7$ :BR IF NO 
024424 112737 000134 024556 MOVB so #"\,, 98 [i TYPE A BACK SLASH 
024432 104401 024556 TYPE 9% 
24436 005016 CLR (SP) :CLEAR THE RUBOUT KEY 
024440 122713 000025 7$: CMPB «#25, (R3) ::1S CHARACTER A CTRL U? 
024444 001003 BNE 8$ ::BR IF NO 
024446 104401 024611 TYPE SCNTLU >: TYPE A CONTROL ‘'U"’ 
024452 000726 BR is ::G0 START OVER 
024454 12ASS WW22 8S: CMPB ss #22, (3) >:1$ CHARACTER A ‘'*R'’? 
CASSHP W1011 BNE 3$ ::BRANCH IF NO 
024462 105013 CLRB (R3) CLEAR THE CHARACTER 
24464 104401 001231 TYPE /SCRLF ::TYPE A 'CR' @ LF’ 
024470 104401 024560 TYPE STTYIN [i TYPE THE INPUT STRING 
024474 000717 BR b$ 360 PICKUP, ANOTHER CHACTER 
024476 104401 001230 4$: TYPE ,SQUES PE A 
024502 000712 BR >: CLEAR THE BUFFER AND LOOP 
024504 111337 024556 3$: MOVB (R3),9% ::ECHO THE CHARACTER 
024510 104401 024556 TYPE , 
024514 122723 000015 CMPB #15, (R3)4 ::CHECK FOR RETURN 
024520 001305 BNE 2$ ::LOOP IF NOT RETURN 
024522 105063 177777 CLRB = 1(R3) +:CLEAR RETURN (THE 15) 
024526 104401 001232 TYPE ,SLF :;TYPE A LINE FEED 
024532 005726 TST (SP)+ >: CLEAN RUBOUT KEY FROM THE STACK 
4534 012603 MOV (SP)+,R3 >: RESTORE R3 
024536 011646 MOV (SP) ,-(SP) ::ADJUST THE STACK AND PUT ADDRESS OF THE 
024540 016666 0000046 000002 MOV 4(SP),2(SP) :: FIRST ASCII CHARACTER ON IT 
024546 012766 024560 000004 MOV #STTYIN, 4(SP) 
024554 000002 RTI RETURN 
024556 000 9$: .BYTE 0 i STORAGE FOR ASCII CHAR. TO TYPE 
024557 000 .BYTE 0 :: TERMINA 
024560 STTYIN: .BLKB 20. : :RESERVE "29, BYTES FOR TTY INPUT 
024604 136 103 015 $CNTLC: .ASCIZ /*C/<15><12> = ::: 
024611 136 125 015 S$CNTLU: .ASCIZ /*U/<15><12> deo clbe sg ve 
024616 136 107 015 S$CNTLG: .ASCIZ /*G/<15><12> =: CONTROL ''G'’ 
024623 015 012 123 SMSWR: .ASCIZ <15><12>/SWR = / 
634 040 040 116 $MNEW: .ASCIZ / NEW = / 
a EVEN 
11 .SBTTL SCOPE HANDLER ROUTINE 
PeeeeeeeeeeaneeeeeeeeeeeeeeeeeekeeaneneeKeeeKeneeeeneneeeeeeeeese 
SSTHIS ROUTINE CONTROLS (HE LOOPING OF SUBTESTS. IT WILL INCREMENT 
S*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
[AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 
S*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
:*SW14=1 LOOP ON TEST 
:*SWil=) INHIBIT | TERATIONS 
> *SWO9=1 LOOP ON ERROR 
s®CALL 
ie SCOPE 7; SCOPE=101 
024646 SSCOPE: 
024646 104407 CKSWR :TEST FOR CHANGE IN SOFT=SWR 
024650 032777 040000 154276 1$: BIT #B1T14,aSWR LOOP ON PRESENT TEST? 
024656 001101 BNE SOVER VES IF Swl4=1 
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SCOPE HANDLER ROUTINE SEQ 0112 
-MHAHASTART OF CODE FOR THE XOR TESTERMMMAM 
024660 000416 $xTSTR: 3R 6$ i1F RUNNING ON THE "'XOR' TESTER CHANGE 
7: THIS INSTRUCTION TO A "'NOP’’ (NOP=240) 
024662 013746 000004 MOV a#ERRVEC, gu (SP) [:SAVE THE CONTENTS OF THE ERROR VECTOR 
024666 012737 024706 000004 MOV 438 QFERRVEC =; SET FOR TI MEOUT , 
024674 005737 177060 TST #177060 : TIME OUT ON 
024700 012637 000004 MOV tithe aFERRVEC : :RESTORE THE ERROR VECTOR 
024704 000450 BR SSVLAD 760 TO THE NEXT TEST 
024706 022626 5$: CMP (SP)+,(SP)+4 S:CLEAR THE STACK AFTER A TIME OUT 
024710 012637 000004 MOV (SP) +, @MERRVEC : : RESTORE THE ERROR VECTOR 
024714 000413 BR 7$ OOP ON THE PRESENT TEST 
024716 6$:;#AMNHEND OF CODE FOR THE nom "TESTERAAMRE 
024716 105737 001117 2$: TSTB = SERFLG S AN ERROR OCCURRED? 
024722 001421 BEQ 3$ pry IF NO 
024724 123737 001131 001117 CMPB ss SERMAX,, SERFLG SIMAX, ERRORS FOR THIS TEST OCCURRED? 
024732 101015 BHI FN 
024734 032777 001000 154212 BIT #B1T09,aSwR : LOOP ON ERROR? 
024742 001404 BEQ 4$ FON 
024744 013737 001124 001122 7%: MOV SLPERR,SLPADR ::SET LOOP ADDRESS TO LAST SCOPE 
024752 000443 BR SOVER 
024754 105037 001117 4$: CLRB = SERFLG ::ZERO THE ERROR FLAG — 
024760 005037 001220 CLR STIMES ::CLEAR THE NUMBER OF J TERAT IONS TO MAKE 
024764 000412 BR 1$ ::ESCAPE TO THE NEXT TEST 
24766 032777 004000 154160 38: BIT #B1T11,aSwR iS INMIBIT ITERATIONS? 
024774 001006 BNE 1$ YES 
024776 005237 001120 INC SICNT INCREMENT ITERATION COUNT 
25002 023737 001220 001120 CMP STIMES,SICNT :CHECK THE NUMBER OF ITERATIONS MADE 
02501 002084 BGE SOVER [:BR IF MORE ITERATION REQUIRED 
025012 012737 000001 001120 1S: MOV #1,S1CNT ::REINITIALIZE THE ITERATION COUNTER 
025020 913737 025076 001220 MOV SMXCNT,STIMES ;:SET NUMBER OF ITERATIONS TO DO 
025026 105237 001116 SSVLAD: INCB $TSTNM COUNT TEST NUMBERS 
025032 113737 001116 001240 MOVB $TSTNM,STESTIN ::SET TEST NUMBER IN APT MAILBOX 
25040 011637 001122 MOV (SP), SLPADR >:SAVE SCOPE LOOP ADDRESS 
25064 011637 001124 MOV (SP). SLPERR [SAVE ERROR LOOP ADDRESS 
025050 005037 001222 CLR SESCAPE i:CLEAR THE ESCAPE FROM ERROR ADDRESS 
025054 112737 000001 001131 MOVB #1,SERM sONLY ALLOW ONE(1) ERROR ON NEXT TEST 
25062 013777 001116 154066 S$OVER: MOV STSTNM, aDISPLAY ::DISPLAY TEST NUMBER 
025070 013716 001122 MOV SLPADR. (SP) ::FUDGE RETURN ADDRESS 
025074 000002 RT] Ti FIXES PS 
on 025076 000001 SMXCNT: 1 ::MAX. NUMBER OF ITERATIONS 
113 .SBTTL SAVE AND RESTORE RO-R5S ROUTINES 


PP eeeeeeekeeeeeeeeeeerereeeeeeeeeeeeKeeneeteKeeeeeheneeeeeeeeeeee 
;*SAVE RO-R5 
7 *CALL: 


3° SAVREG 
;*UPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE: 
. ;* 


:*TO0P==-(416) 
i 42~-—=(418) 
pt +hnmneR5 
pt +6---R4 
pt +B---R3 
3**10---R2 
p8412---R] 
p##14---R0 
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SAVE AND RESTORE RO-RS ROUTINES SEQ 0113 

025100 SSAVREG: 

025100 010046 MOV RO,=(SP) ::PUSH RO ON STACK 

025102 010146 MOV R1,-(SP) >:PUSH R1 ON STACK 

025104 010246 MOV R2,-(SP) > PUSH R2 ON STACK 

025106 010346 MOV R3,-(SP) +:PUSH R3 ON STACK 

025110 010446 MOV RG, (SP) + PUSH R& ON STACK 

025112 010546 MOV R5,-(SP) *:PUSH RS ON STACK 

025114 016646 000022 MOV 22(SP) ,=(SP) ::SAVE PS OF MAIN FLOW 

025120 016646 000022 MOV 22(SP) ,=(SP) +: SAVE PC OF MAIN FLOW 

025124 016646 000022 MOV 22(SP) ,=(SP) ::SAVE PS OF CALL 

025130 016646 000022 MOV 22(SP),=(SP) >:SAVE PC OF CALL 

025134 000002 RT] 
s*RESTORE RO-R5 
s*CALL: 
* RESREG 

025136 SRESREG: 

025136 012666 000022 MOV (SP)+,22(SP) s:RESTORE PC OF CALL 

025142 012666 000022 MOV (SP)+,22(SP) ;3RESTORE PS OF CALL 

025146 012666 000022 MOV (SP)+,22(SP) :RESTORE PC OF MAIN FLOW 

025152 012666 000022 MOV (SP) +, 22(SP) : RESTORE PS OF MAIN FLOW 

025156 012605 MOV (SP)+,R5 3 STACK INTO R5 

025160 012604 MOV (SP)+,RG +: POP STACK INTO RG 

025162 012603 MOV (SP)+,R3 +:POP STACK INTO R3 

025164 012602 MOV (SP)+,R2 ::POP STACK INTO R2 

025166 012601 MOV (SP)+,R1 >:POP STACK INTO R1 

025170 012600 MOV (SP)+.RO +:POP STACK INTO RO 

a 025172 000002 RT] 
115 .SBTTL TRAP DECODER 
SERA AAAARAEAKETERAAee eee eee HERA KeKeKAKeKKeKeKKKeKKeKeKeteeee 

SSTHIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘TRAP’ INSTRUCTION 
:*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
[*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
[#60 TO THAT ROUTINE. 

025174 010046 STRAP: MOV RO,-(SP) :SAVE RO 

025176 016600 000002 MOV 2(SP),RO : GET TRAP ADDRESS 

025202 005740 TST =(RO) ACKUP BY 2 

025204 111000 MOVB _— (RO) ,RO 33GET RIGHT BYTE OF TRAP 

025206 006300 ASL RO :POSITION FOR INDEXING 

025210 016000 025230 MOV STRPAD(RO),RO  ::INDEX TO TABLE 

025214 000200 RTS RO +:G0 TO ROUTINE 
::THIS 1S USE TO HANDLE THE "'GETPRI' MACRO 

025216 011646 STRAP2: MOV (SP) ,=(SP) ::MOVE THE PC DOWN 

025220 016666 000004 000002 MOV 4(SP),2¢SP) ::MOVE THE PSW DOWN 

025226 000002 RT] T:RESTORE THE PSW 


-SBTTL TRAP TABLE 


:*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;*BY THE “‘TRAP’’ INSTRUCTION. 
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TRAP TABLE 


SEQ 0114 
ROUTINE 
025230 025216 $TRPAD: .WORD $TRAP2 
025232 022366 $TYPE  ;;CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 
025234 022746 $STYPOC ::CALL=TYPOC § TRAP#2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
025236 022722 STYPOS ::CALL=TYPOS | TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
025240 022762 STYPON ::CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
025242 023150 STYPDS ::CALL=TYPDS | TRAP*5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 
025244 023762 SGTSWR :;CALL=GTSWR § TRAP4+6(104406) GET SOFT-SWR SETTING 
025246 022672 SCKSWR ;;:CALL=CKSWR | TRAP+7(104407) TEST FOR CHANGE IN SOFT-SwWR 
025250 024234 SRDCHR 3;CALL=RDCHR = TRAP#10(104410) TTY TYPEIN CHARACTER ROUTINE 
025252 024324 SRDLIN ::CALL=RDLIN TRAP411(104411) TTY TYPEIN STRING ROUTINE 
025254 025100 SSAVREG sie SAVREG TRAP+12(104412) SAVE RO-R5 ROUTINE 
“en 025256 025136 SRESREG ::CALL=RESREG TRAP+13(104413) RESTORE RO-R5 ROUTINE 
117 .SBTTL SINGLE LENGTH BINARY TO DECIMAL ASCIZ ROUTINE 
FERRARA AAAAA AEA EEE EAA AEAREAREAREREREAHARKKAeReeAK Kees 
“THIS ROUTINE WILL CONVERT A 16-BIT UNSIGNED BINARY NUMBER TO AN 
: UNSIGNED DECIMAL ASCIZ NUMBER. 
e MOV NUMBER, -(SP) ;;PUT BINARY NUMBER ON THE STACK 
* JSR PC, as$SB2D LL 
* RETURN S:ADDRESS OF THE 1ST ASCIZ CHAR.IS ON THE STACK 
025260 016637 000002 025310 $SB2D: MOV 2(SP),1$ i SAVE BINARY NUMBER 
025266 012746 025310 MOV #1$,-(SP) ::SET POINTER 
025272 006737 025314 JSR PC, a#$DB2D [:CALL DOUBLE LENGTH CONVERT 
025276 062716 000005 ADD #5, (SP) [:ONLY ALLOW FIVE CHARACTERS 
025302 012666 000002 MOV (SP)+,2(SP) ::PICKUP POINTER 
025306 000207 RTS PC +: RETURN 
nats 025310 000000 000000 1$: .WORD 0,0 
119 .SBTTL DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 
FRA AA ERATE E RAAT AAA TAKARA eee eee 
SSTHIS ROUTINE WILL CONVERT A 32-BIT BINARY NUMBER TO AN UNSIGNED 
: sDECIMAL (ASCII) NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE 
*@ - 
s*CALL 
ie MOV #PNTR,=(SP) ::POINTER TO LOW WORD OF BINARY NUMBER 
3* JSR PC ,a#$0B2D 
te RETURN ::THE FIRST ADDRESS OF ASCIZ 
*:1S ON THE STACK 
025314 104412 $DB2D: SAVREG ; SAVE REGISTERS 
025316 016602 000002 MOV 2(SP),R2 [PICKUP THE DATA, NTER 
025322 012700 025474 MOV #SDECVL, RO :3GET ADDRESS OF “SpECVE * STRING 
025326 010066 000002 MOV RO,2(SP) PUT ADDRESS OF ASCIZ STRING ON STACK 
025332 012201 MOV (R2)+,R1 ::PICKUP THE BINARY NUMBER 
025334 012202 MOV (R2)+,R2 
025336 012737 000012 025412 MOV #10.,4$ ::SET UP TO DO 10 CONVERSIONS 


a ee 
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DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE SEQ 0115 
025344 012704 025424 MOV #STNPUR,RG ::ADDRESS OF TEN POWER 
025350 012705 025426 MOV #STNPWRE2,R5 
025354 005003 1$: CLR R3 :sCLEAR PARTIAL 
025356 161491 2$: SUB (RO) RI ‘i SUBTRACT TEN POWER 
025360 005602 SBC R 
025362 161502 SUB (RS) ,R2 
025364 002402 BLT 3$ :zBR IF TEN POWER TO LARGE 
025366 005203 INC R3 ADD 1 TO PARTIAL 
025370 000772 BR 23 LOOP 
025372 062401 3$: ADD (R4)+,R1 STRESTORE SUBTRACTED VALUE 
025374 005502 ADC R2 
025376 062402 ADD (R4)+,R2 
025400 022525 CMP (R5)4_(R5)4 ::MOVE TO NEXT TEN POWER 
025402 052703 000060 BIS #°0,R3 S:CHANGE PARTIAL TO ASCII 
025406 110320 MOVB R3,(RO)+ SSSAVE IT 
025410 0053c7 DEC (PC)+ +: DONE? 

025412 000000 4$: “WORD 0 

025414 001357 BNE 1$ ::BR IF NO 

025416 105020 CLRB = (RO) + +: TERMINATOR 

025420 104413 RESREG : SRESTORE REGISTERS 

025422 000207 RTS PC +: RETURN 

025424 145000 STNPWR: 145000 :1.0E09 

025426 035632 35632 

025430 160400 160400 5:1.0€08 

025432 002765 2765 

025434 113200 113200 331.0607 

025436 000230 23 

025440 041100 041100 531.006 

025442 00001 17 

025444 103240 103240 ::1.0€05 

025446 000001 1 

025450 023420 23420 31.0604 

025452 000000 0 

025454 001750 1750 £:1.0€03 

025456 000000 0 : 

025460 000144 144 £31.0€0z 

025462 000 0 

025464 000012 12 221.001 

025466 000000 0 

025470 000001 1 ::1.0€00 

025472 000000 0 

at 025474 SDECVL: .BLKB 12. s RESERVE STORAGE FOR ASCIZ STRING 
121 .SBTTL TYPE NUMERICAL ASCIZ STRING SUPPRESS LEADING ZEROS 
,eekaekeekekeneeeeeetereeeeeeeeekeeeekekekeeKekeneeeeeeteeeeee eee 

TSTHIS ROUTINE I$ USED TO TYPE AN ASCIZ NUMBER SUPPRESSING THE 
; LEADING NUMBERS. 
ie MOV #NUMADR,-(SP) ::FIRST ADDRESS OF ASCIZ STRING 
ie JSR PC ,a#SSUPRS 

025510 010046 $SUPRS: MOV RO, -(SP) iSA VE RO 

025512 016000 000004 MOV 4(§P),RO PICKUP THe QpOINTER 

025516 105710 1$: TSTB (RO) PITER MINATEOR 

025520 001403 BEQ 2$ ::BR IF YES 
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“TYPE NUMERICAL ASCIZ STRING SUPPRESS LEADING ZEROS SEQ 0116 
025522 122720 000060 CMPB Uw", (RODS :i08 THIS AN ASCII "0" 2 
025586 001773 BEQ.t«é«‘dSS; “BR IF YES 
§5883> rdosy 025540 ~~ oe eae. FoR TYPING 
. ee v 
025536 104401 TYPE 
025540 000000 38: WORD 0 HiASCIZ  COINTER GOES HERE 
025542 012600 Hoy. (SP)*, RO :TRESTORE RO 
025544 019616 MOVs (SP) 42 (SP) :RESTORE THE STACK 
rap 029566 000207 RTS PL :CRETURN 
193 .SBTTL RANDOM NUMBER GENERATOR ROUTINE 
FERRARA RAARAREAAREREAEAE RAAT AERAAEAAAREAREARAREREAAARAKHEA AAA 
‘THIS ROUTINE 1S A DOUBLE PRECISION PSEUDO RANDOM NUMBER GENERATOR 
aul Th A RANGE OF 0 TO 2(+33)-1, 
:*CALL: 
7* JSR PC,$RAND 37CALL THE ROUTINE 
a RETURN STRETURN HERE THE RANDOM 
ie SINUMBER WILL BE IN 
se 3; $HINUM, SLONUM 
025550 SRAND: 
025550 010046 Mov RO, = $) ::PUSH RO ON STACK 
025552 010146 MOV R1,-¢ :;PUSH R1 ON STACK 
025554 010246 MOV R2,-($r) :;PUSH R2 ON STACK 
025556 013700 025650 MOV SLONUM RO SISET RO WITH LOW 
025562 013701 025646 MOV so SHINUM“RI STSET RI WITH HIGH 
025566 012702 177771 MOVs #+7JR2 tISET SHIFT COUNT 
035572 006300 1$: ASL. sO tISHIFT RO LEFT AND 
025574 006101 ROL R1 :sROTATE CARRY INTO R1 AND 
025576 005202 INC —R2 “CHECK FOR DONE 
025600 001874 BNE s«S SECONTINUE SHIFT LOOP 
025602 063700 025650 ADD _—-SLONUM,, RO ADD NUMBER TO MAKE X 129 
025606 005501 ADC ORM ;IPROPOGATE CARR 
025610 063701 025646 ADD SHINUM,R1 ADD NUMBER TO MAKE xX 129 
025614 062700 001057 ADD —s-#1057.RO “ADD LOW CONSTANT 
025620 005501 ADC ORT :TPROPOGATE CARRY 
025622 062701 047401 ADD «#47401, R1 ‘ADD HIGH CONSTANT 
025626 010037 025650 MOV —swRO, SLONUM tISAVE RO 
025632 010187 025646 MOV oR SHINUM TISAVE RI 
55636 012602 MOVs (SP) 4, R2 ‘POP STACK INTO R2 
025640 013601 MOVs (SP) 4 RI SSPOP STACK INTO Ri 
025642 013600 MOVs (SP) #7RO ‘POP STACK INTO RO 
55644 000207 RTS ss PL RETURN 
025646 176543 SHINUM: .WORD 176543 
sag 029050, 123656 SLONUM: {WORD 123456 
135 LSBTTL INTEGER DIVIDE ROUTINE 


PeeeeeeeeeeeaeeeeeeeeeeeeeeeeeeeeneekKkekeeeeeeeeeeeReKeteeeeeee 
#THIS ROUTINE WILL DIVIDE A 32-BIT TWO’S COMPLEMENT INTEGER 
:*DIVIDEND BY A 16-BIT TWO'S COMPLEMENT INTEGER DIVISOR GIVING 
3*A 16-BIT TWO'S poe ai caen INTEGER QUOTIENT AND A 16-B1T REMAINDER. 
:*DIVISION WILL BE PERFORMED SO THAT THE REMAINDER IS OF THE 
: Tate SIGN AS THE DIVIDEND. 
3¢ : 
7° MOV LOW DIVIDEND,-(SP) 3; THE HIGH DIVIDEND MUST BE < 1/2 
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SEQ 0117 
33AS LARGE AS THE DIViSOR 


;;QUOTIENT & REMAINDER ARE ON THE STACK 
CURRED 


roe 
E OVERFLOW OCCURRED 
PTED TO DIVIDE BY ZERO 


OVERFLOW DIVIDE BY ZERO 
ALL ZEROS ALL ONES 
ALL ZEROS ALL ONES 


;;PUSH OLD PSW AND PC ON STACK 
+3 STRIP AWAY oo CODES 


;;PUSH R3 ON STACK 

7:SAVE A PLACE FOR SIGNS 
::SETUP THE ITERATION COUNTER 
::PICKUP THE DIVIDEND 


:;CHECK THE SIGN ‘ 


::KEEP TRACK OF THE SIGN 
3; AND St THE ORIGINAL 


seraace THE DIVISOR 

CHECK THE SIGN 

: :DIVISOR OF ae 0 1S A NO-NO 
:[8E1_ REMAINDER TO ALL ONES 
::KEEP TRACK OF DIVISORS SIGN 
ssaeenre ote ORIGINAL NUMBER 


SE START FORMING QUOTIENT 
MSB'S 


::POSITION 

Si COMPARE DIVIDEND & DIVISOR 

[:BR IF DIVIDEND > DIVISOR 

: 7REMAINDER AFTER THIS LOOP 
QUOTIENT BIT ENTERS HERE 

00 IF NO 

: SOVERFLOW? 

:2BR IF 


{Eye IN 7 to's ara WORD 
HSE REMAINDER TO ALL ZEROS 
iC gercoy INTO” 1 aaa 
3 DEAR COUNTER FROM STA 
REMAINDER SIGN CORRECTION NEEDED? 


WWM —OOOnNe 
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™~ 


" CZRAVAO RMOS/3/ 
INTEGER DIVIDE 


SFSSR 
SLLLLSSSSSSSsss Em 


Oonmrrrnr 


SOooooooocooo 
See 


i 
2 
2 
é 
é 
2 
2 
2 
2 
2 
2 
2 


o 

o 
ww 
SfOfNOSO 


026114 


026154 


WR — OOO VitsWwh OOO Vilfwnw—Oo0en 
oO 


zwr 


_ —4 
ze 
mo 


Cs 


OU "VII 
oon— 


fw 
ooo $ 
—Phoue 


S 


DR TST 


000001 


000020 
000016 


000002 


037066 
000040 
001350 


001324 


001324 


000006 


10 


MACRO VO3.01 11-APR-80 15:01:20 PAGE 14-20 


000010 
000010 


000004 


000004 


BGE 9S 3:BR IF NO 
NEG RO 7 ZNEGATE REMAINDER 
CLRB 1(SP) 7: CLEAR SIGN 
DEC (SP) 7;BUT DON'T FORGET QUOTIENT 
9$: TST (SP)+ ;;QUOTIENT SIGN CORRECTION NEEDED? 
BEQ 10$ 7:BR IF NO 
NEG R1 3 NEGATE QUOTIENT 
108: MOV R1,20(SP) 3;RETURN QUOTIENT AND 
MOV RO, 16(SP) > REMAINDER TO USER 
MOV (SP)+,R3 3:POP STACK INTO R3 
MOV (SP)4+,R2 $3 STACK INTO R2 
MOV (SP)+,R1 3;POP STACK INTO R1 
MOV (S$P)+,R0 3:POP STACK INTO RO 
MOV (SP)+,2(SP) 3:SETUP TO RETURN CONDITION CODES 
RT] 3 ;RETURN 


;THIS SUBROUTINE CLEARS THE MASSBUS 
se THEN SELECTS THE DRIVE 


CONTROLLER, MASSBUS ADAPTER, 


: JSR PC, CNTCLR :CALL TO ROUTINE 
CNTCLR: MOV RMADR, RG :GET RMCS1 BASE ADDRESS 
MOV #CLR,RMCS2(R4) ISSUE MASSBUS CLEAR AND 
MOV CHKDRV,RMCS2(R4) :SELECT THE DRIVE 
RTS PC RETURN 
:SET 'LPTAVL'' TO THE PROPER STATE. 
> LPTAVL = 0 IF NO LINE PRINTER AVAILABLE 
: LPTAVL = 1 JF LINE PRINTER IS AVAILABLE 
: JSR PC,LP.AVL 
3 RETURN 
LP.AVL: CLR LPTAVL :START WITH NO PRINTER AVAILABLE 
MOV #1$, ERRVEC :SETUP THE TIMEOUT VECTOR 
CLR ERRVEC+2 
TST LPS :1S THERE A LINE PRINTER? 
INC LPTAVL SYES--SET AVAILABLE SWITCH 
1$: CMP (SP)+,(SP)4 :NO=-POP STACK 
2s: MOV #ERRVEC +2, ERRVEC :RESTORE TIMEOUT VECTOR 
RTS PC RETURN 


;THI]S ROUTINE WILL DETERMINE IF THERE IS A CLOCK ON THE SYSTEM 


AND IF THERE 1S 17 WILL SETUP THE VECTOR AND START THE CLOCK 
3"CLKSTA’’ WILL INDICATE THE CLOCK TYPE 

3; O= NO CLOCK 

3¢l= KWil-P 

sole KWIleL 

;THIS ROUTINE WILL ALSO SETUP “TICKMS"" (TIME 
;PCR CLOCK TICK iN MILLISECONDS) AND ‘‘TICKUS' 
s (TIME PER CLOCK TICK IN MICROSECONDS) AS 
sPER Sw00. 

3$W00=0 -- 60HZ 

7$w00=1 -- 50HZ 

3 CALL 


CZRAVAO RMOS/3/2 EXT'D D 
INTEGER DivIDE ROUTINE 


168 

169 

170 

171 026156 
7 aselee 
173 026164 
174 026166 
175 Bsc es 
176 026172 
177 oseies 
178 02620 
179 026206 
180 ose 14 
181 026220 
182 026222 
183 ososge 
184 0262 
185 026234 
186 026242 
187 026246 
188 026250 
189 026252 
190 026254 
191 026256 
192 026260 
193 026266 
1 See 
ie Sets 
197 026306 
198 026314 
199 026322 
200 
201 026324 
202 026324 
203 026332 
204 026334 
205 026342 
206 026350 
207 026356 
44 026364 
$18 026366 
212 026366 
213 026374 
214 026376 
215 026404 
216 02641 
+4 02642 
$15 026422 
220 026426 
221 026452 
3 

é 

224 
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001340 


001340 


001314 


001342 
001344 


001342 
001344 


ST.CLK: 


4$: 
5$: 


ST.PCLK: 


1$: 


ST.LCLK: 


1$: 
SRVCLK: 


JSR 
RETURN 


PC,ST.CLK 


R1,=(SP) 
MERRVEC+2,R1 
(R1),=(SP) 
(R1 


=(R1),=(SP) 


#1,CLKSTA 
PC,ST.PCLK 
3$ 


(SP)+,(SP)+ 
#2$,(R1) 


aks 
#-1,CLKSTA 
PC,ST.LCLK 
3$ 
(SP)4+,(SP)+ 
(SP)+,(R1)¢ 
(SP)+,(R1)+ 
(SP)+,R1 
#SW06,C.SWR 
4$ 


#20, TICKMS 
#20600. TICKUS 


#16, TICKMS 
#16666. ,TICKUS 


! oceeomee 
#SRVCLK ,@PKV 


#1, aPKB 
#115 ,aPKcs 


PC 


#SwO5,C.SWR 
1$ 


#SRVCLK ,ALKV 
#300 ,aLKve2 
g700 aLnS 


TICKMS ,-(SP) 
PC ,RATAR 


;SAVE R1 
;SAVE AND SETUP TIMEOUT VECTOR 
sLEVEL 0 


:60 TO 1$ ON TIMEOUT 

4th CLOCK ate 10 NO CLOCK 
S_ THERE A KW11-P? 

i VEScSEl STATUS TO Kw11-P 

:START THE KW11-P 

:G0 TO EXIT 

+ er UP THE STACK 

;1F TIMEOUT GO TO 2$ 

:1$ THERE A KW11-L? 

YES== SET — TO KWIT=L 

:START THE KW1T-L 


3EX XIT 
“LEAN UP THE STACK 
;RESTORE THE TIMEOUT VECTOR 


+ RESTORE R1 


STICK FOR 50HZ 


;SETUP TIME PER 
sTICK FOR 60H2 
;RETURN 


ALLOW SOFTWARE TIMEOUTS? 
;NO--BRANCH 
;SETUP THE KW11-P VECTOR 


uN. ONE TICK 
“INT.EN."*, COUNT DOWN", 
“LINE fred". AND ‘'RUN 
SRETURN 


ALLOW SOFTWARE TIMEOUTS? 
;NO--BRANCH 
;SETUP THE KWil-L VECTOR 


sSTART THE KW1l-L 
;RETURN 
;TIME PER TICK IN <)' penne 


;COUNT THE ELASPED T 
;RETURN AFTER INTERRUPT 


7 THIS ROUTINE SETS UP DEFAULT PARAMETER VALUES WHEN THE PROGRAM IS 
;STARTED OR WHEN THE VALUE OF BITOO IN ‘C.SWR* IS CHANGED. 


"MODE 1 (REPEAT)"', 


SEQ 0119 


D 10 
MVAO RMOS/3/2 EXT'D DR TST MACRO VO3.01 11-APR-80 15:01:20 PAGE 14-22 
'EGER DivIDE ROUTINE SEQ 0120 

225 3 CALL 
226 : JSR PC,LODFLT 
227 : RETURN 
228 
229 026434 LODFLT: 

026434 010046 MOV RO,-(SP) :;PUSH RO ON STACK 

026436 010146 MOV R1,-(SP) + PUSH R1 ON STACK 

026440 010246 MOV R2,-(SP) 7 :PUSH Re ON STACK 

026442 010346 MOV R3,=(SP) ::PUSH R3 ON STACK 
230 026444 O12737 176777 001330 MOV #176777, TSTNMS :SELECT TESTS 0-10, 12-17 
231 026452 012737 000003 001332 MOV #3, TSTNMS#2 [SELECT TESTS 20 & 
232 026460 012700 002514 MOV #DFLT,RO [DEFAULT PARAMETERS POINTER 
233 026464 012701 003116 MOV #PRMO.R1 ‘TABLE POINTER 
234 026470 010102 MOV R1,R2 ‘STOP ADDRESS 
235 026472 012021 1$: MOV (RO)+, (R1)4 ‘MOVE DEFAULT PARAMETERS INTO 
236 026474 020002 CMP RO,R2 [RUN TIME TABLES ** DONE? 
237 026476 103775 BLO 1$ +NO=-BRANCH 
238 026500 012700 004160 MOV #PATB,RO ‘PATO DEFAULTS TO PATTERN 8 
239 026504 012701 003560 MOV #PATO.RI 
240 026510 012021 2$: MOV (RO)+,(R1)4 
241 026512 020027 004220 CMP RO,#PATS 
242 026516 103776 BLO 2$ 
243 026520 032737 000001 001314 BIT #BITOO,C.SWR ;16 BIT MODE ? 
244 026526 001012 BNE 3$ 7BR IF 18 BIT MODE 
245 026530 012737 000037 002456 MOV #31.,PRMLMT#+24 :SET "FS" LIMIT TO 31 
246 026536 012737 000037 002460 MOV #31. PRMLMT+26 :SET 'LS* LIMIT TO 31. 
247 026544 012737 160000 001450 MOV #-<256.#32.>, TREKWC ;WORD COUNT FOR A 16 BIT TRACK 
48 §3083¢ 000411 BR > CONTINUE 
49 026554 012737 000035 002456 38: MOV #29.,PRMLMT#+24 :SET 'FS* LIMIT TO 29. 
250 026562 012737 000035 002460 MOV #29. PRMLMT+26 :SET "LS" LIMIT TO 29. 
251 026570 012737 161000 001450 MOV #-<256.#30.>, TREKWC sWORD COUNT FOR AN 18 BIT TRACK 
252 026576 012701 002362 4$: MOV #PRMPT.RI sADDRESS OF PARAMETER POINTER TABLE 
253 026602 005711 S$: TST (R1) [END OF PARAMETER POINTER TABLE ? 
254 026604 001425 BEQ 8$ ‘BR IF YES 
255 026606 032731 004000 BIT WBIT11,a(R1)* IS "LS* SELECTED AS A VARIABLE IN THIS TEST ? 
256 026612 001773 BEQ § :BR IF N 
257 026614 016102 177776 MOV =2(R1),R2 :GET FIRST POSITION IN PARAMETER TABLE 
258 026620 011246 MOV (R2),-(SP) [AND SAVE VARIABLES BITS THAT ARE USED. 
259 026622 012703 000014 MOV #12.,R3 sPOSITION OF ‘LS’ IN TEST PARAMATER TABLE 
260 026626 006216 6$: ASR (SP) [1S THIS PARAMETER A VARIABLE ? 
261 026630 103002 BCC 7$ [BR IF NO 
262 026632 062702 000002 ADD #2,R2 ;YES, POINT TO NEXT PARAMETER IN TABLE 
263 026636 005303 7$: DEC R3 ‘AT *LS" PARAMETER YET ? 
264 026640 001372 BNE ‘BR IF NO 
265 026642 005726 TST (SP)+ ‘ADJUST THE STACK 
266 026644 021237 002456 CMP (R2),PRMLMT#24 :1S ‘LS* TOO LARGE FOR THE MODE SELECTED ? 
267 026650 101754 BLOS :BR 1F NO 
268 026652 013712 002456 MOV PRMLMT+24,(R2) :RESET VALUE FOR MODE USED 
269 026656 000751 BR 5$ : CONT INUE 
270 026660 8$: 

26660 012603 MOV (SP)+,R3 ::POP STACK INTO R3 

026662 012602 MOV (SP)+.R2 ::POP STACK INTO R2 

026664 012601 MOV (SP)+.R1 ::POP STACK INTO R1 

026666 012600 MOV (SP)+.RO ::POP STACK INTO RO 

026670 000207 RTS P RETURN 


; THIS POUTINE FILLS THE PARAMETER TABLE THE CURRENT TEST. 
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INTEGER DivIDE ROUTINE SEQ 0121 
274 3 CALL 
275 : MOV SresTma, STSTNM ;LOAD THE TEST NUMBER 
276 : JSR PC,LODPR 
277 3 RETURN 
278 
279 026672 LODPRM: 
026072 010146 MOV R1,-(SP) 77PUSH R1 ON STACK 
026674 010246 MOV R2,-(SP) 3;PUSH R2 ON STACK 
026676 010346 MOV R3,-(SP) 7;PUSH R3 ON STACK 
026700 010446 MOV R4,-(SP) + 3PU use R4 ON STACK 
280 026702 005004 CLR R4 : R RG 
281 026704 113704 001116 MOVB STSTNM,R4G GET MIME TEST 
oe 026710 006304 ASL RG SETUP TO ADDRESS WORDS 
283 026712 016401 002362 MOV PRMPT(RG),R1 [GET THE TEST'S SARAME TER TABLE ADDRESS 
284 026716 012702 002322 MOV #PRM,R2 [PARAMETER EXECUTION TABLE 
285 026722 005003 CLR R3 =R3 1S USED R.. A COUNTER 
286 026724 013704 001350 MOV CHKDRV,RG [GET DRIVE ADDRESS 
287 026730 0121 ¢ MOV (R1)+,(R2)¢ LOAD PARAMETER SPECIFIER 
288 026732 0062 002322 1$: ASR PRM 31S THIS PARAMETER USED IN THE TEST ? 
289 026736 103002 BCC 2$ 7BR IF NOT 
290 026740 012122 MOV (R1)4,(R2)¢ [LOAD THE VALUE 
291 026742 000401 BR 3$ ; CONTINUE 
292 026744 005022 2$: CLR (R2)+ [CLEAR THE UNUSED PARAMETER LOCATION 
293 026746 005203 >$: INC By :COUNT THE ,POSITION IN THE OUTPUT TABLE 
026750 022702 002350 CMP #PAT#2,R2 ;FINISH HED 
295 026754 001437 BEQ 7$ R If eS. 
296 026756 022703 000007 CMP #7,R3 : DOING TRACK PARAMETERS ? 
$32 Bg67be 901367 BNE R NO 
98 026764 122764 000007 036750 CMPB #7, DRVTYP(R4) :18 sevice AN RMOS ? 
299 026772 001422 BEQ 6$ SO, OVERLAY FT, LT @ IT WITH FT’, LT* @ IT’ 
300 026774 013737 002444 001372 MOV PRMLMT+12,.STRK ue LAST TRACK FOR AN RMO3/2 
301 027002 062703 000003 ADD #3,R3 [ADJUST COUNTER 
302 027 006237 002322 ASR PRM :COUNT THE PARAMETER 
303 027012 103001 BCC 4$ ;BR IF FT’ IS NOT USED 
304 027014 005721 TST (R1)+ sMOVE THE INPUT POINTER 
305 027016 006237 002322 4$: ASR PRM ;COUNT THE PARAMETER 
306 027022 103001 BCC 5$ ‘BR IF LT" NOT USED 
307 027024 005721 TST (R1)¢ ;MOVE THE INPUT POINTER 
308 027026 006237 002322 5$: ASR PRM ;COUNT THE PARAMETER 
309 027032 103337 BCC 1$ ‘BR IF IT’ NOT USED 
310 027034 O78) TST (R1)¢ ;MOVE THE INPUT POINTER 
311 027036 000735 fe 1$ KEEP GOING 
312 027060 013737 002452 001372 6$: MOV PRMLMT+20,LSTRK :GET LAST TRACK FOR AN RMOS 
313 027046 162702 000006 SUB #6,R2 [BACKUP THE OUTPUT POINTER 
314 027052 000727 BR 1$ “KEEP GOING 
315 027054 7$: 
027054 012604 MOV (SP)+,R4 :;POP STACK INTO R4 
027056 012603 MOV (SP)+,R3 3;POP STACK INTO R3 
027 012602 MOV (SP)+,R2 :;POP STACK INTO R2 
027062 012601 MOV (SP)+,R1 :;POP STACK INTO R1 
si 27 000207 RTS PC RETURN 
318 sTHIS ROUTINE LOADS A READ HEADER AND DATA COMMAND OR A SEEK COMMAND 
36 a INTO DPS.B+e AND DPB.C+2, DEPENDING ON THE STATE OF ‘‘CONTROL SWITCH’ 
321 CALL 
322 : JSR PC ,LDCMD 
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CZRMVAO RMOS/3/2 EXT'D DR TST 
INTEGER DivIDE ROUTINE SEQ 0122 
i / net 
325 027066 032737 000200 001314 LDCMD: BIT #SWO7,C.SWR 3D0 ars 343 1 SEEKS? 
326 027074 001007 BNE 1$ ; YES--BRANCH 
327 027076 012737 000173 045500 MOV #READHD,DPB.B*2 :NO--SET UP FOR READ HEADER AND 
328 027106 012737 000173 045520 MOV WREADHD ,OPB.C+2 ‘DATA COMMAND 
329 027112 peysee BR 2$ 
330 027114 012737 000105 045500 1$: MOV #SEEK,DPB.B+2 ;SETUP FOR SEEK COMMAND 
331 027122 012737 000105 045520 MOV #SEEK ,OPB.C+2 
336 027130 000207 2s: RTS PC 
334 THIS ROUTINE WILL CALL THE RMOS DRIVER AND THEN WAIT ON THE FUNCTION 
te 7S COMPLETE. IF AN ERROR OCCURS IT IS REPORTED. 
7 CALL 
337 ; A "DPB'' WITH COMMAND INFORMATION 
338 ; CALL. 
+4 ; RETURN 
341 027132 005037 001222 CALL.A: CLR SESCAPE ;NO scare ADDRESS 
342 027136 004037 037654 JSR RO,RMOS CALL RMOS DRIVER 
343 027142 045456 DPB.A 
344 027144 000772 AR CALL.A 
345 027146 005737 045474 1$: TST DPB.A+16 7 DONE? 
346 027152 001775 BEQ 1$ :NO=-LOOP 
347 027154 100042 BPL 4$ :BRANCH IF NO ERR 
348 027156 012737 027252 001222 MOV #3%$,SESCAPE sESCAPE TO 3$ oy ERROR 
349 027164 013737 045470 001364 MOV DPB.A+12,CYL.DS :CYLINDER 
oer 472 bE iA 14 045467 001370 MOVB DPB.A+11,TRK.DS ; TRACK 
27200 113737 045466 001366 MOVB DPB.A+10,SEC.DS ;SECTOR 
027206 012746 045474 MOV #D0PB.A+16,-(SP) ;STATUS/ERROR INDICATOR ADDRESS 
027212 004737 030526 JSR PC,ERINDX :FORM DISPATCH INDEX 
027216 062607 ADD (SP)+,PC ;REPORT PROPER ERROR 
027220 104041 EMT 41 :NON-EXIST DRIVE 
027222 104042 EMT 42 :PARITY ERROR 
027224 104043 EMT 43 sUNSAFE ERROR 
027226 104044 EMT 44 :NON-1/0 ERROR 
350 027230 0240 NOP 710 SYNC THE CALLING SEQ OF ERINDX 
351 027232 005737 045572 TST RM.REG+RMER sANY DRIVE ERROR 
352 027236 100 BNE % :BRANCH IF SO 
353 027240 032737 100000 045620 BIT #B1115,RM.REG+RMERZ :BAD SPOT ERROR 
354 027246 001005 BNE 4$ ;BRANCH IF SO 
355 027250 2$: 
027250 104045 EMT 45 
356 027252 013746 04 474 3$: MOV DPB.A+16,-(SP) ;STATUS WORD 
357 027256 004737 0466 JSR PC,LOP.CK [SEE IF LOOP, ABORT, OR CONTINUE 
$26 027262 000200 4$: RTS RO :RETURN 
360 THIS ROUTINE IS THE SAME AS "‘CALL.A’’ EXCEPT FOR THE DPB USED AND IF 
361 THE COMMAND IS A READ HEADER AND DATA THE HEADER (CYLINDER, TRACK, 
362 sAND SECTOR) READ 1S CHECKED FOR VALIDITY. 
363 CALL 
364 : FILL DPB 
365 : JSR RO,CALL.B 
709 3 RETURN 
368 027264 005037 001222 CALL.B: CLR SESCAPE ;NO ESCAPE ADDRESS 
369 027270 004037 037654 JSR RO,RMOS :CALL RMOS DRIVER 
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INTEGER DivIDE ROUTINE SEQ 0123 
370 027274 045476 DPB.B 
371 psf ere Boor Ts BR CALL.B 
28 027300 005737 045514 1$: TST DPB.B+16 ; DONE? 
373 027304 001775 BEQ 1$ 3NO--BRANCH 
374 027306 100047 BPL 4$ :BRANCH If NO 
375 027310 OT eses 027414 001222 MOV #3%,SESCAPE sESCAPE TO 3s My ERROR 
376 027316 013737 045510 001364 MOV DPB.B+12,CYL.DS SEYLIN DER 
027324 113737 045507 001370 MOVB DPB.B+11,TRK.DS ; 
027332 113737 045506 001366 MOVB DPB.B+10,SEC.D0S ;SECTOR 
027340 012746 045514 MOV #DPB.B+16,-(SP) :STATUS/ERROR INDICATOR ADDRESS 
027344 004737 030526 JSR PC,ERINDX FORM DISPATCH INDEX 
027350 062607 ADD (SP)+,PC ‘REPORT PROPER ERROR 
027352 104041 EMT 41 *NON-EXIST DRIVE 
027354 104042 EMT 42 PARITY ERROR 
027356 104043 EMT 43 ;UNSAFE ERROR 
027360 104044 EMT 44 Hoe ne ERROR 
377 027362 000240 NOP ;TO SYNC be teenies SEQ OF ERINDX: RT. 
378 027364 005737 045572 TST RM.REG+RMERI [DRIVE ERR 
379 027370 001404 BEQ $ “BR IF NOT 
380 027372 032737 177677 045572 BIT #°C100,RM.REG+RMER1 sSEE IF ONLY "HCE" SET 
381 027400 001412 BEQ 4$ ;BR IF IT IS 
382 027402 .. 23 
383 027402 032737 100000 04562) BIT #B1T15, RM. REG+RMER2 BSE ERROR 
384 027410 001025 BNE 6$ BRANCH IF SO 
385 027412 104045 EMT 45 
386 027414 013746 045514 3$: MOV DPB.B+16,-(SP) te WORD 
387 027420 004737 030466 JSR PC,LOP.CK SEE IF LOOP, Ny ie OR CONTINUE 
388 pe rese 00041 BR 5$ CHECK FOR STA 
389 027426 123727 045500 000173 4$: CMPB DPB.B+2,#READHD :DOING IMPLIED” SEEKS? 
390 027434 001004 BNE 5$ :NO=-BRANCH 
391 027436 004037 030746 JSR RO, VERIFY ;YES=--GO CHECK THE DATA 
392 027442 045506 DPB.B+10 
393 027444 000407 BR 6$ ERROR DURING VERIFY 
394 027446 032737 040000 001314 5$: BIT #SW14,C.SWR STALL? 
395 027454 001403 BEQ 6$ ;NO--BRANCH 
96 027456 004037 030664 JSR RO,STALL sYES=-CALL STALL ROUTINE 
397 027462 001452 -WORD STALL1 sSTALL TIME POINTER 
os 027464 000200 6$: RTS RO sRETURN 
400 THIS ROUTINE IS THE SAME AS ‘'CALL.B'’ EXCEPT FOR THE DPB USED. 
401 CALL 
402 3 FILL DPB 
403 3 JSR RO,CALL.C 
rr : RETURN 
06 027466 005037 001222 CALL.C: CLR SESCAPE ;NO ESCAPE ADDRESS 
407 027472 004037 037654 JSR RO,RMO5S s;CALL RMOS DRIVER 
408 027476 045516 DPB.C 
409 027500 000772 BR CALL.C 
410 027502 005737 045534 1$: TST DPB.C+16 7 DONE? 
411 027506 001775 BEQ 1$ :NO=-LOOP 
412 027510 100047 BPL 4% YES--BRANCH IF NO ERROR 
413 027512 012737 027616 001222 MOV #3$,SESCAPE * SESCAP E TO 3$ ON ERROR 
414 027520 013737 045530 001364 MOV DPB.C+12,CYL.DS ;CYLINDER 
027526 113737 045527 001370 MOVB DPB.C+11,TRK.DS ; TRACK 
027534 113737 045526 001366 MOVB DPB.C+10,SEC.D0S ;SECTOR 
027542 012746 045534 MOV #DPB.C+16,-(SP) :STATUS/ERROR INDICATOR ADDRESS 
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INTEGER DivIDE ROUTINE SEQ 0124 
p67 2e8 004737 030526 JSR PC ,ERINDX + FORM DISPATCH INDEX 
027552 062607 ADD (SP)+,PC REPORT PROPER ERROR 
027554 104041 EMT 4] :NON-EXIST DRIVE 
027556 10404 EMT 42 [PARITY ERROR 
027560 10404 EMT 43 S UNSAFE yo 
027562 104044 EMT 44 saan 179 ERR 
415 027564 000240 NOP ;TO SYNC THe CALLING SEQ OF ERINDX: RT. 
416 027566 005737 045572 TST RM. REG*+RMER1 :DR IvE ERR 
417 027572 001404 BEQ $ R IF NOT 
418 027574 032737 177677 045572 BIT #°C100,RM.REG*RMERT sSEE IF ONLY ‘HCE’ SET 
419 027602 001412 BEQ 4% ;BR IF IT IS 
420 027604 23: 
421 027604 032737 100000 045620 BIT #B81115,RM. res BSE ERROR ONLY ? 
422 027612 001025 BNE 6$ BRANCH IF SO 
423 027614 104045 EMT 45 
424 027616 013746 045534 3$: MOV DPB. colg, -(SP) ;STATUS WORD 
425 027622 004737 030466 JSR PC,LOP.CK ;SEE IF LOOP, ABORT, OR CONTINUE 
426 gs 7oes 000410 BR 5$ 
427 0276 123727 045520 000173 4$: CMPB DPB.C+2,#READHD ;DOING IMPLIED SEEK? 
428 027636 001004 BNE 5$ NO=-EXIT 
429 027640 004037 030746 JSR RO, VERIFY = YES==CHECK THE DATA 
430 027644 045526 DPB.C+10 
431 027646 000407 BR 6$ ERROR DURING VERIFY 
432 027650 032737 040000 001314 5$: BIT #SW14,C.SWR : STALL? 
433 027656 001403 BEQ 6$ 3;NO--BRANCH 
434 027660 004037 030664 JSR RO,STALL sYES=-CALL STALL ROUTINE 
435 027664 001452 ~WORD STALL! sSTALL TIME POINTER 
rh] 027666 000200 6$: RTS RO 
438 
439 sTHIS ROUTINE IS THE SAME AS ‘‘CALL.A'’ EXCEPT FOR THE DPB USED AND 
440 70N AN ERROR LOCATION “‘ERR.CT'’ IS EXAMINED. IF ERR.CT IS EQUAL TO 
441 sSERFLG EXIT IS TO THE NEXT TEST. 
442 7 CAL 
443 ; FILL DPB 
444 : JSR RO,DRVCAL 
oe : RETURN 
447 027670 005037 001222 DRVCAL: CLR SESCAPE ;NO ESCAPE ADDRESS 
448 027674 005937 001432 CLR WCEFLG ;CLEAR WRITE CHECK ERROR FLAG 
449 027700 004037 037654 JSR RO,RMOS ;CALL RMOS DRIVER 
450 027704 045536 DTADPB 
451 027706 000770 DRVCAL 
453 027710 005737 045554 DRVCL1: TST DTADPB+16 ; DONE 
454 027714 001775 BEQ DRVCL1 3NO--LOOP 
455 027716 100402 BM] 1$ ;BR IF ERRORS 
456 027720 000137 030446 JMP 148 ;NO ERRORS 
457 027724 1$: 
027724 012737 030032 001222 MOV #3%,SESCAPE gi TESCAPE TO 3$ ON ERROR 
458 027732 013737 045550 001364 MOV DTADPB+12,CYL.D CYLINDER 
027740 113737 045547 001370 MOVB DTADPBSTT TRE bs : TRACK 
027746 113737 045546 001366 MOVB DTADPB+10,SEC.0S sSECTOR 
027754 piers 045554 MOV #DTADPB+16,-(SP) sSTATUS/ERROR INDICATOR ADDRESS 
027760 004737 030526 JSR PC ,ERINDX sFORM DISPATCH INDEX 
027764 062607 ADD (SP)+,PC ‘REPORT PROPER ERROR 


027766 104041 EMT 41 sNON“EXIST DRIVE 
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INTEGER DivIDE ROUTINE SEQ 0125 
027770 10404 EMT 42 :PARITY ERROR 
027772 10404 EMT 43 [UNSAFE ERROR 
027774 104044 EMT Pi :NON=1/0 ERROR 
459 027776 900240 NOP ;T0 SYN THE CALLING SEQ OF THE ERINDX: 
460 030000 005737 045572 TST RM.REG*RMER] =: ANY pk VE ERROR ? 
461 030004 001011 BNE 2$ ‘REPORT THE 1/0 ERROR IF SO 
462 030006 032737 100000 045620 BIT #BIT1S .RM.REG*RMERD sBAD SPOT ERROR ? 
“3? 030014 001405 BEQ 23 ;BRANCH IF NOT 
64 030016 012737 177777 001464 MOV #-1,BASFLG ‘SET BAD SECTOR ENCOUNTER FLAG 
46s 9300 4 000137 030446 in JMP 14$ ‘OTHERWISE ,DON'T REPORT THE BSE 
66 O 3808 104045 EMT 45 
467 030032 122737 000020 001116 38: CMPB ss #20, STSTNM ;TEST 20? 
468 030040 001170 BNE 11$ {NO>=BRANCH 
459 030042 013746 045554 MOV DTADPB+16,-(SP) STATUS WORD 
470 030046 004737 030466 JSR PC,LOP.CK “SEE IF LOOP, ABORT » jor CONTINUE 
471 030052 122737 000151 045540 CMPB ss #WRCKD,DTADPB*2 :DOING A WRITE CHE 
472 03 001164 BNE :NO=-BRANCH 
473 030062 032737 040000 045566 BIT #BIT1G4,RM.REG+10 s1S "WCE''=1? 
474 030070 001560 BEQ 12$ :NO--BRANCH 
475 030072 032777 000020 151054 BIT #SW04,aSWR SINHIBIT WRITES? 
476 030100 001154 BNE 12$  YES=-BRANCH 
477 030102 112737 000161 045540 MOVB #WRITE,DTADPB+2 :SETUP FOR A WRITE 
478 030110 005037 001222 CLR SESCAPE ;NO ESCAPE ADDRESS 
479 030114 004037 037654 JSR RO,RMOS :D0 THE WRITE 
480 030120 045536 DTADPB 
481 030122 000240 NOP 
48 030124 005737 045554 4$: TST DTADPB+16 : DONE? 
483 030130 001775 BEQ 4$ ‘NO--LOOP 
484 030132 100043 BPL 6$ :YES==BRANCH IF NO ERROR 
485 030134 012737 030422 001222 MOV #11S,SESCAPE :;ESCAPE TO 11$ ON ERROR 
486 030142 013737 045550 001364 MOV DTADPB+12,CYL.DS s CYLINDER 
030150 113737 045547 001370 MOVB DTADPB+11.TRK.DS TRACK 
030156 113737 045546 001366 MOVB  DTADPB+10.SEC.DS SECTOR 
030164 012746 045554 MOV #DTADPB+16,-(SP) i STATUS/ ERROR INDICATOR ADDRESS 
030170 004737 030526 JSR PC ,ERINDX :FORM DISPATCH IND 
030174 062607 ADD (SP) +,PC *REPORT PROPER ERROR 
030176 104041 EMT 41 [NON-EXIST DRIVE 
030200 104042 EMT 42 ‘PARITY ERROR 
030202 104043 EMT 43 UNSAFE ERROR 
030204 104044 EMT 44 :NON-1/0 ERR 
487 030206 000240 NOP :70 SYN THE CALLING SEQ OF ERINDX 
488 030210 005737 045572 TST RM.REG*+RMER1 ANY DRIVE ERROR 
489 030214 001011 BNE 5$ ANCH IF SO 
030216 032737 100000 045620 BIT #BITI5,RM. neGoRnine =BAD SOPT ERROR 
491 030224 001405 BEQ 5$ ;BRANCH IF NOT 
492 030226 012737 177777 001464 MOV #-1,BASFLG :SET BAD SECTOR ENCOUNTER FLAG 
493 030234 000137 030446 JMP 14$ EXIT 
494 030240 5$: 
030240 104045 EMT 45 
495 030242 112737 000151 045540 63: MOVB #WRCKD,DTADPB+2 ;COMMAND=WRITE CHECK DATA 
496 030250 004037 037654 JSR RO,RMOS [DO THE WRITE CHECK 
497 030254 045536 DTADPB 
498 030256 000240 NOP 
499 030260 005737 045554 7$: TST DTADPB+16 DONE? 
500 030264 001775 BEQ 7$ *NO=-LO0 
501 030266 100410 BM] $ a WES oC BRANCH IF ERROR 
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INTEGER DiVIDE SEQ 0126 
502 030270 004037 037654 JSR RO,RMOS :D0 A 2ND WRITE CHECK 
503 030274 045536 DTADPB 
504 030276 000240 p 
505 030300 005737 045554 8$: TST DTADPB+16 ; DONE? 
506 030304 001775 BEQ 8$ :NO=-LOOP 
507 030306 100057 BPL 14$ ;YES--BRANCH IF NO ERROR 
508 030310 012737 000001 001432 9$: MOV #1 ,WCEFLG [SET THE WRITE CHECK ERROR FLAG 
509 030316 012737 030422 001222 MOV #I1S,SESCAPE | ::ESCAPE TO 11$ ON ERROR 
510 030326 013737 045550 001364 MOV DTADPB+12,CYL.DS : CYLINDER 
030332 113737 045547 001370 MOVB  DTADPB+11,TRK.DS : TRACK 
030340 113737 045546 001366 MOVB DTADPB+10,SEC.D0S sSECTOR 
030346 012746 045554 MOV #DTADPB+16,-(SP) sSTATUS/ERROR INDICA*™°R ADDRESS 
030352 004737 030526 JSR PC,ERINDX sFORM DISPATCH INDEX 
030356 062607 ADD (SP)+,PC sREPORT PROPER ERROR 
030360 104041 EMT 41 sNON-EXIST DRIVE 
030362 104042 EMT 42 sPARITY ERROR 
030364 104043 EMT 43 ; UNSAFE ERROR 
030366 104044 EMT 44 ;NON-1/0 ERROR 
511 030370 000240 NOP :$0 SYN THE CALLING SEQ OF ERINDX: 
512 030372 005737 045572 TST RM.REG+RMER1 ;ANY DRIVE ERROR 
513 030376 001010 BNE “BRANCH IF SO 
514 030400 032737 100000 045620 BIT #B1T15,RM.REG+RMER2 ;BAD SOPT ERROR ? 
515 030406 001404 BEQ 10$ ;BRANCH IF NOT 
516 030610 012737 177777 001464 MOV #-1,BASFLG ;SET BAD SECTOR ENCOUNTER FLAG 
517 030416 0C0413 BR 14$ SOTHERWISE EXIT 
518 030420 10$: 
030420 104046 EMT 46 
519 0 3Nese 01374 045554 118: MOV DTADPB+16,-(SP) ;STATUS WORD 
520 030426 00473 030466 JSR PC,LOP.CK ;SEE IF LOOP, ABORT, OR CONTINUE 
521 030432 123737 001462 001117 12$: CMPB ERR.CT,SERFLG 3;GO TO NEXT TEST? 
522 030440 101002 BHI 14$ :NO--BRANCH 
523 030442 013700 001346 13$: MOV BYPASS,RO ;YES--GET EXIT ADDRESS 
524 030446 032737 040000 001314 148: BIT #SW14,C.SWR sSTALL? 
525 030454 001403 BEQ 15$ :NO--BRANCH 
526 030456 004037 030664 JSR RO,STALL sYES--CALL STALL ROUTINE 
527 030462 001454 WORD STALL2 sSTALL TIME POINTER 
328 030464 000200 15$: RTS RO 
530 ; THIS SUBROUTINE CHECK FOR LOOP, ABORT, OR CONTINUE SWITCHES AFTER 
531 sERRORS 41, 42, 43, 44, 45, AND 46. 
532 > CALL 
533 . MOV DTA+16,-(SP) ;STATUS WORD FROM DPB IN USE 
534 5 JSR PC,LOP.CK 
HH : RETURN 
537 030466 032777 001000 150460 LOP.CK: BIT #SW9,aSWR ;LOOP ON ERROR 
538 030474 001402 BEQ 1$ ;BR IF NOT 
539 030476 000177 150422 JMP a$SLPERR sSTART AT THE LOOP ADDRESS 
540 030502 005037 001222 1$: CLR SESCAPE “CLEAR ERROR ESCAPE FLAG 
541 030506 032766 072006 000002 BIT #811714'B1113!BIT12'B1T10!B1102'B11T01,2(SP) s;CHECK ERROR TYPE 
542 030514 001402 BEQ 2s ;BR IF DRIVE NOT OFFLINE, UNLOADED, 0 
543 sPERSISTENT UNSAFE OR FATAL MASSBUS PARITY 
544 030516 000137 021020 JMP SEOP ‘TERMINATE DRIVE 
545 030522 012616 28: MOV (SP)+, (SP) sADJUST RETURN ADDRESS 
346 030524 000207 RTS PC 
548 ;THIS ROUTINE FORMS AN INDEX THAT WILL BE USED TO DISPATCH 
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549 TO THE PROPER ERROR CALL. THE INDEX IS FORMED BY EXAMINING 
550 THE STATUS/ERROR INDICATOR OF THE APPLICABLE DPB. 
22} + INDEX STATUS/ERROR 
553 : 0 B1714!B1T13!B11T08!B1T01 
554 ; 2 BIT11'BIT10'B1T02 
555 : 4 BIT12'BIT04 
556 : 6 BI1T05!B11T03!<B1T09 & COMMAND=NON-1/0> 
22f a on B1T06!<BI1T09 & COMMAND=1/0> 
7 CAL 
559 ; JSR #0PB+16,-(SP) ;ADDRESS OF STATUS/ERROR INDICATOR 
560 : JSR PC, ,ERINDX sFORM INDEX 
26) ; RETURN INDEX 1S ON THE STACK 
563 030526 010046 ERINDX: MOV RO,-(SP) sSAVE RO 
030530 010146 MOV Siiot a ;SAVE R1 
565 030532 016600 000006 MOV 6(SP),RO :GET STATUS/ERROR INDICATOR POINTER 
030536 011037 001354 MOV (RO), SVSTAT SAVE THE STATUS/ERROR INDICATOR 
567 030542 005001 CLR R1 s;START INDEX AT ZERO 
568 030544 032710 BIT (PC)+, (RO) : FORM INDEX OF 0? 
569 030546 020402 -WORD B1113'B1T08!B1T01 
570 030550 001037 BNE 5$ 3 YES--BRANCH 
571 030552 032710 BIT (PC)+,(R “FORM PARITY ERROR OR PORT REQUEST INDEX (2)? 
572 030554 006004 .WORD BIT11'BI1T10!B1T02 
573 030556 001033 BNE 4$ 3 YES--BRANCH 
574 030560 032710 BIT (PC)+, (RO) sFORM UNSAFE INDEX (4)? 
575 030562 050020 .WORD BIT14'BIT12!BIT04 
278 Sateen 001067 BNE 3$ 3 YES--BRANCH 
577 030566 032710 BIT (PC)+, (RO) :FORM NON-1/0 ERROR INDEX (6)? 
578 030570 000050 -WORD B8B1T05!B1103 
579 030572 001023 BNE 2$ 7 YES--BRANCH 
580 030574 032710 BIT (PC)+, (RO) :FORM 1/0 ERROR INDEX (10)? 
581 030576 000100 -WORD BIT06 
582 030600 001017 BNE 1$ YES--BRANCH 
583 030602 032710 BIT (PC)+, (RO) «SOFTWARE TIMEOUT? 
030604 001000 -WORD BI1T09 
585 030606 001420 BEQ 5$ ily yd INDEX OF 0 
586 030610 122760 000150 177762 CMPB #150,-16(RO) sYES~=1/0 
587 030616 003011 BGT 2$ de aa 144 
030620 005737 045572 TST RM.REG+RMER1 :ANY DRIVE ERROR ? 
589 030624 001005 BNE 1$ ‘BRANCH IF SO 
590 030626 032737 100000 045620 BIT #81115, RM.REG+RMER2 sBSE ERROR 
030634 001401 BEQ 1$ sBRANCH IF NOT 
592 030636 005201 INC R1 SKIP , NOT REPORT BSE ERROR 
593 030640 005201 1$ INC R1 S INDEX=10---ERROR=45 OR 46 
594 030642 005201 2$ INC R1 + INDEX=6=--ERROR=44 
595 030644 005201 3$ INC R1 s INDEX=4---ERROR=43 
596 030646 005201 4$ INC R1 ; INDEX= g~-ERROR® =42 
597 030650 006301 5$: ASL R1 7 INDEX=0---ERROR=41 
598 030652 010166 000006 MOV R1,6(SP) RETURN INDEX oO USER 
599 030656 012601 MOV (SP)+,R1 SRESTORE R1 
600 030660 012600 MOV (SP)+,RO0 RESTOR E RO 
a4 030662 000207 RTS PC *RETURN FROM CALL 
603 :THIS ROUTINE WILL PROVIDE A STALL IN MILLISECONDS FOR A SPECIFIC 
604 AMOUNT OF TIME IF B1113 OF C.SWR = 0 OR A RANDOM AMOUNT OF TIME 
605 SIF BIT 13 OF C.SWR = 1. 
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INTEGER DivIDE ROUTINE SEQ 0128 
606 ;STALL1 CONTAINS SPECIFIED TIME FOR TESTS 0 = 7, AND STALL2 
607 [CONTAINS THE TIME POR TESTS 16-21. 

608 CALL 

609 : JSR RO, STALL 

610 : TIME POINTER :WHERE TO FIND THE STALL TIME 

612 030664 013046 STALL: MOV @(RO)+,=(SP) :P1CKUP STALL TIME 

613 030666 032737 020000 001314 BIT #SW13,C.SWR SUSE A RANDOM TIME? 

614 030674 001406 BEQ 1$ :NO=-BRANCH 

615 030676 004737 025550 JSR PC, $RAND :VES=-FORM RANDOM NUMBER 

616 030702 013716 025650 MOV SLONUM, (SP) AND USE IT FOR THE STALL TIME 

617 030706 042716 177700 BIC #°C77, (SP) “BUT NEVER > 64 MILLISECONDS 

618 030712 005046 1$: CLR -(SP) ‘CLEAR TEMP. LOCATION 

619 030714 162766 000001 000002 2s: SUB #1,2¢SP) ‘MORE STALL REQUIRED? 

620 030722 103407 BLO 4$ :NO=-BRANCH 

621 030724 012716 000144 MOV #100., (SP) ;STALL FOR ABOUT 1 MILLISECOND 

622 030730 005700 38: TST RO “NOP TO KILL TIME 

623 030732 005366 000000 DEC O(SP) : COUNT 

624 030736 001374 BNE 3$ [LOOP If MORE COUNTS NEEDED 

625 030740 000765 BR 2$ 

626 030742 022626 4$: CMP (SP)+,(SP)+ sCLEAN OFF THE STACK 

627 030744 000200 RTS RO ZEXIT 

629 ;ROUTINE TO SOFTWARE COMPARE HEADER ON IMPLIED SEEKS. 

630 37 CALL 

631 : JSR RO, VERIFY 

632 : ADR POINTER SADDRESS OF DPB+10 (SECTOR NUMBER) 

$37 : RETURN 

635 030766 010146 VERIFY: MOV R1,-(SP) ;SAVE RI 
030750 012001 MOV (RO)+,R1 “GET ADDRESS OF DPB+10 

637 030752 042737 150000 052776 BIC #150000, BUFFER :STRIP FORMAT AND BAD SECTOR BITS FROM CYLINDER NUMBER 
030760 023761 052776 000002 CMP BUFFER,2(R1) CYLINDER NUMBER OK? 

639 030766 001003 BNE 1$ ‘NO=-BRANCH 

640 030770 023711 053000 CMP BUFFER+2,(R1)  :YES--HOW ABOUT TRACK/SECTOR? 

641 030774 001441 BEQ 3$ ‘BRANCH IF GOOD 

642 030776 013737 052776 001356 1$: MOV BUFFER,CYL.RD :SAVE THE EXPECTED AND THE 
031 113737 053001 001360 MOVB BUFFERSS. TRK. RD :RECIEVED CYLINDER, TRACK, 

644 031012 113737 053000 001362 MOVB  BUFFER+2.SEC.RD :AND SECTOR 

645 031020 112137 001366 MOVB — (R1)4,SEC.DS 

646 031026 112137 001370 MOVB = (R1) +, TRK.DS 

647 031030 011137 001364 MOV (R1),CYL.DS 

648 031034 012737 031046 001222 MOV #2$, SESCAPE s;ESCAPE TO 2$ ON ERROR 

649 031042 005740 TST -(RO) “MAKE IT TEST PC+4 

650 031044 104012 EMT 12 

651 031046 012737 000107 045460 2$: MOV #RECAL, DPB. A+2  ;LOAD RECALIBRATE ORDER CODE 

652 031054 004037 027132 JSR RO,CALL.A :GO EXECUTE THE COMMAND 

653 031060 005037 001222 CLR SESCAPE CLEAR ERROR ESCAPE FLAG 

654 031064 032777 001000 150062 BIT #SW9,aSWR ;LOOP 0 N ERROR 

655 031072 001404 BEQ 4$ R 

656 031074 000177 150024 JMP ASLPERR “RETURN TO ERROR LOOP ADDRESS 

657 031100 062700 000002 38: ADD #2,R0 S INCREMENT RETURN ADDRESS 

658 031104 012601 i$: MOV (SP)+,R1 TRESTORE R1 

659 031106 000200 RTS RO EXIT 

661 THIS ROUTINE WILL PERFORM A “MASSBUS'' INIT. FOLLOWED BY 

662 A 'RECALIBRATE’ ON THE DRIVE UNDER TEST. 
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INTEGER DivIDE ROUTINE SEQ 0129 
663 NOTE: THIS ROUTINE DESTROYS R1 AND RG 
664 3s CALL 
665 3 JSR RO, SRCHOO 700 A MASSBUS INIT. AND RECAL 
666 ; RETURN SRETURN HERE IF NO ERROR 
ree | 3 RETURN2 SRETURN HERE ON ERROR 
669 031110 005001 SRCHOO: CLR R1 s INCASE OF ERROR (TYPTIM) 
670 031112 005037 177776 CLR PS 
671 031116 Creer 041740 005744 MOV #1ISR,ARMVEC 3 SETUP INTERRUPT VECTOR 
672 031124 013704 037066 MOV RMADR ,R4 PICKUP ADDRESS OF RMCS1 
673 031130 012764 000040 000010 MOV #CLR, RACS2(RA) :MASSBU US INIT. 
674 031136 005037 045546 CLR DTADPB+10 tg ome SECTOR=0 
675 031142 005037 045550 CLR DTADPB+12 SCYLIND =0 
676 031146 012737 000107 045540 MOV WRECAL ,DTADPB+2 SCOnAAND = RECALIBRATE 
677 031154 005037 001222 CLR SESCAPE [NO ESCAPE ADDRESS 
678 031160 004037 037654 JSR RO,RMOS CALL THE DRIVER 
679 031164 045536 DTADPB ;DPB POINTER 
680 031166 000440 BR 4$ sQUEVE IS FULL 
681 031170 005737 045554 1$: TST DTADPB+16 ;WAIT ON DONE 
682 031174 001775 BEQ 1$ 
683 031176 100030 BPL 3$ TAKE NORMAL exit If NO ERROR 
684 031200 012737 031254 001222 MOV #2$,SESCAPE Ti ESCA PE TO A RROR 
685 031206 013737 045550 001364 MOV DTADPB+12,CYL.DS 3CYLIN DER 
031214 113737 045547 001370 MOVB DTADPB+11,TRK.DS 3 TRACK 
031222 113737 045546 001366 MOVB DTADPB+10,SEC.DS SECTOR 
031230 012746 045554 MOV #DTADPB+16,-(SP) :STATUS/ERROR INDICATOR ADDRESS 
031234 004737 030526 JSR PC,ERINDX :FORM DISPATCH INDEX 
031240 962607 ADD (SP)+,PC ‘REPORT PROPER ERROR 
031242 104041 EMT 41 SNON-EXIST DRIVE 
031244 104042 EMT 42 sPARITY ERROR 
031246 104043 EMT 43 sUNSAFE ERROR 
031250 104044 EMT 44 :NON-1/0 ERROR 
031252 104045 EMT 45 31/0 ERROR 
686 031254 005720 2$: TST (RO) + sADJUST FOR ERROR EXIT 
687 031256 000404 BR 4$ 360 TO (HE EXIT 
688 031260 005064 000006 3$: CLR RMDA(R4) ; TRACK AND SECTOR = 0 
689 031264 005064 000034 CLR RMDC(R4) ‘CYLINDER = 0 
4 031270 000200 4$: RTS RO sRETURN 
92 THIS IS AN RTI WHICH IS USED BY THE TIMING TESTS & THE SERVO SETTLE DOWN TEST 
one 031272 000002 DORTI: RT] ;RETURN FROM INTERRUPT 
+5 STIS ROUTINE WILL INITIALIZE THE TIMERS USED BY THE ‘‘TIMING ROUTI ES 
7CALL 
698 3 JSR PC,STRTMR 
+44 ; RETURN . 
701 031274 104412 STRTMR: SAVREG 7 SAVE RO=RS 
702 031276 012700 001374 MOV evIA. UP, RO “START AT TIM 
703 031302 005020 1$: CLR (RO)+ CLEAR THE tae TABLES 
704 031304 335 001430 CMP nO. #TIM.PT : DONE? 
705 031310 103774 BLO 1$ 
706 031312 012710 052776 MOV #BUFFER (RO) SETUP INTER 
707 031316 012737 077777 001374 MOV @CBITIS,TIM.UP :SET MINIRUR TIME TO MAX]MUM 
708 031324 012737 077777 001412 MOV eCBI TIS TIA: DN ‘POSITIVE NUMBER 
709 031332 104413 RESREG TRESTORE RO-R5 
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INTEGER DivIDE ROUTINE SEQ 0130 
re 031334 000207 RTS PC RETURN 
712 ;THIS ROUTINE WILL ADD THE ELAPSED TIME TO THE AVERAGE COUNTER AND 
713 ‘MAINTAIN THE MINIMUM AND MAXIMUM TIMES. 
re :NOTE: THIS ROUTINE DESTROYS a 
716 3 MOV ATP,R3 ;PARAMETER POINTER 
717 3 MOV FLAG,RS ;FLAG=0=COUNT UP 
718 ; ;FLAG=-1=COUNT DOWN 
719 ; JSR PC,COUNT 
re : RETURN 
722 031336 012702 001374 COUNT: MOV #TIM.UP,R2 ;PICKUP THE ‘UP’ POINTER 
723 031342 005705 TST R5 USE 1T? 
724 031344 001402 BEQ 1$ 3; YES--BRANCH 
725 031346 012702 001412 MOV ATIM.ON,R2 3NO=--PICKUP ‘'‘DOWN'’ POINTER 
726 031352 027722 150130 1$: CMP aPKC, (R2)+ ;LESS THAN PREVIOUS LOW? 
727 031356 002003 BGE 2$ :NO--BRANCH 
728 031360 017762 150122 177776 MOV @PKC,-2(R2) sYES=--SAVE IT 
729 031366 027763 150114 000004 28: CMP aPKC ,4(R3) LESS ere, THE LOW LIMIT? 
730 031374 002001 BGE 3$ :NO=-BRANCH 
731 031376 005212 inc (R2) 7 YES=-COUNT IT 
732 031400 005722 3$: TST (R2)+ ;ADVANCE THE POINTER 
733 031402 027722 159100 CMP aPKC, (R2)+ ;GREATER THAN PREVIOUS HIGH? 
734 031406 003403 e BLE 4$ 3NO--BRANCH 
735 031410 017762 150072 177776 MOV @PKC,-2(R2) sYES--SAVE IT 
736 031416 027763 150064 000006 4$: CMP aPKC ,6(R3) : GREATER THAN THE HIGH LIMI1? 
737 pel ese 003401 BLE 5$ NO--BRANCH 
738 031426 005212 INC (R2) :YES-=COUN NT IT 
739 031430 005722 5$: TST (R2)+ sADVANCE THE POINTER 
740 031432 067722 150050 ADD @PKC,(R2)+ ;ADD THIS COUNT TO THE .TOTAL 
741 031436 005522 ADC (R2)+ 
742 031440 005212 INC (R2) ;COUNT THIS READING 
743 031442 022737 061326 001430 CMP M#BUFFER+<4*822.>,TIM.PT ;SAVE THIS CUUNT? 
744 031450 101406 BLOS 6$ 3;NO--BRANCH 
745 031452 017777 150030 147750 MOV APKC, ,aTIM.PT sYES--WELL SAVE IT TREN 
746 031460 062737 000002 001430 ADD #2,TIM.PT ;ADVANCE THE POINTER 
oH 031466 000207 6$: RTS PC sRETURN 
749 ;THIS ROUTINE PRINTS THE SPEC OF ALL TIMING TESTS 
750 CALL 
751 : JSR RO,SPTY 
38 ; TABLE ADDRESS 
754 3; TABLE: . WORD ASCIZ MESSAGE POINTER 
755 3 »WORD MIN VALUE 
36 s » WORD MAX VALUE 
758 031470 012002 SPTYP: MOV (RO)+,R2 ;THE TABLE ADDRESS 
759 031472 032777 900100 147454 BIT #SW06,aSWR ALLOW PRINT 
760 031500 001035 BNE 3$ EXIT IF NOT 
761 031502 104401 001231 TYPE /SCRLF 
Oe 031506 104401 001231 TYPE ,SCRLF 
763 031512 012237 031520 MOV (R2)+,1$ 3 
764 031516 104401 TYPE 
765 031520 000000 1$ -WORD 0 
766 031522 012246 MOV (R2)+,-(SP) ;LOAD. MIN VALUE 7] 
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;SKIP IF MIN VALUE IS 0 
;CONVERT TO DECIMAL 
;TYPE IT 


[MAXMUM VALUE 
CR=LF 


3, THIS ROUTINE 1S USED TO TYPE THE MINIMUM, 

sMAXIMUM, AND AVERAGE TIMES FOR THE TIMING TESTS 

:1T WILL ALSO CHECK THE TIMES TO ENSURE 

THEY ARE WITHIN TOLERANCE AND IF NOT FLAG THE BAD TIMES. 


: TABLE: 


TYPTIM: 


sNOTE: THIS ROUTINE DESTROYS R2-R5 
; CALL 


JSR RO, TYPTIM 
TABLE 

RETURN 

MSGADR1 

MSGADR2 

MIN. ALLOWED 

MAX ALLOWED 

MOV (RO)+,R2 
BIT #SWO6,aSWR 
BNE $ 

MOV (R2)+, 2% 
MOV (R2)+.R5 
MOV (R2)4.R 
MOV (R2) ,R2 
MOV #TIM.UP,R4 
TYPE 

.WORD 0 

TST 14(R4) 

BEQ 8S 

TYPE  ,MSGMIN 
MOV (R4)+,-(SP) 
JSR PC,$SB2D 
JSR PC {$SUPRS 
TYPE ,MSGOUS 
TST (RG) + 

BEQ 

TYPE | BLNKS2 
MOV =2(R4) = (SP) 
JSR PC, $SB2D 
JSR PC -$SUPRS 
TYPE  ,MBELOW 
MOV R3,-(SP) 
JSR PC. $SB2D 


:GO REPORT THE TIMES 
;POINT TO THE PROPER TASLE 


sADDRESS OF ASCIZ MESSAGE NUMBER 1 
sADDRESS OF ASCIZ MESSAGE NUMBER 2 
:MINIMUM TIME ALLOWED 
MAXIMUM TIME ALLOWED 


sPICKUP_THE TABLE POINTER 

: INHIBIT TIME REPORTS? 

>: YES--BRANCH 

sADDRESS OF MESSAGE NUMBER 1 
sADDRESS OF MESSAGE NUMBER 2 
sPICKUP THE LOW LIMIT 

sAND THE HIGH LIMIT 
;PARAMETER POINTER 

sTYPE THE MESSAGE 

sASCIZ MESSAGE POINTER GOES HERE 
;DID ANY COUNTS OCCUR? 
;NO--BRANCH 

-*'MIN='' 


[PUT (R4)+ ON THE STACK 
“CHANGE TO DECIMAL ASCIZ 
: TYPE WITHOUT LEADING ZEROS 


sANY SEEKS BELOW THE LOW LIMIT 
:NO--BRANCH 

ZTYPE 2 SPACES 

:PUT -2(R4) ON THE STACK 
CHANGE TC DECIMAL ASCIZ 

ZTYPE WITHOUT LEADING ZEROS 

: "BELOW THE MINIMUM OF 

:PUT _R3 ON THE STACK 

CHANGE TO DECIMAL ASCIZ 

:TYPE WITHOUT LEADING ZEROS 


SEQ 0131 


C 
l 


R 
T 


MVAO RAOS/3 
EGER DivIDE ROUTINE 
818 031724 104401 
819 0317 104401 
820 0317 eee] 
0317 ge: 
031742 004737 
821 pai res 104401 
822 03175 eH 
823 031754 001421 
824 031756 104401 
825 031762 ers: 
031766 00473 
031772 004737 
826 031776 104401 
827 032002 proses 
032004 004737 
032010 004737 
828 032014 104401 
829 032020 104401 
830 032024 012446 
831 032026 012446 
832 03.050 012446 
833 032032 004737 
834 032036 006126 
835 032040 100001 
836 032042 005216 
837 032044 
039086 904737 
838 035086 100004 
839 032060 104401 
840 032064 016446 
032070 004737 
032074 004737 
841 032100 022737 
842 032106 001407 
843 032110 022737 
844 032116 001403 
845 032120 104401 
846 0352124 000402 
847 b351$5 104401 
848 0321352 
849 032132 010537 
850 032136 001404 
85: 032140 005005 
852 032142 000631 
853 032144 104401 
854 0352150 000200 
855 
856 
857 
858 
859 
860 
361 
86 
865 032152 0202357 
864 032156 001410 


oooo ocooo—-o 
Sewn Fwoone 
COU COMmmnne 
MUN WR NO 
—M—OA US ON 
FrNncoce coon 


/2 EXT'D OR TST 


000014 
046625 
046605 
031630 


046642 


002336 
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001116 
001116 


3$: TYPE 


4$: TYPE 


5$: 


B 
8$: TYPE 
9$: R 


: THIS wert WILL INCREMENT 
; NUMBER 


; CALL 


RETU 
RETURN2 


INCTRK: CMP 
BEQ 


: JSR 
: RN1 


»MSGOUS 

, MSGMAX 

(R4)4+,=(SP) 

PC,$SB20 

PC ,SSUPRS 
$GOUS 

ai 


*MSGAVG 
(R4)+,=(SP) 
(R4)+,=(SP) 
(RG)+,=(SP) 
PC, $Div 
(SP)4 

5$ 

(SP) 
PC,$SB2D 

PC -$SUPRS 
MSGOUS 
/»BLNKS2 
=2(R4) ,=(SP) 
PC, $SB2D 

PC .$SUPRS 
#12,$TSTNM 
6$ 

#14, $TSTNM 
6$ 

MSGNUM 
/MSGSEA 
R5,2% 

$ 

RS 


1$ 

. MSGNON 
RO 

RO, INCTRK 


R2,L1 
2% 


:"MAX="" 


;PUT (R4&)* ON THE STACK 
; CHANGE TO DECIMAL ASCIZ 
; TYPE WITHOUT LEADING ZEROS 


7 ANY + ft, Bates THE HIGH LIMIT 


; E STACK 
:CHANGE TO DECIMAL IZ 
;TYPE WITHOUT LEADING ZEROS 


NO MORE THAN 2 


:NO=-BRAN 
; TYPE a SPACES 
PUT =2¢ 


TFORM THE AVERAGE 


71S THE Re + wespeensy OVER HALF? 


;NO--BRA 


:YES--ROUND UP 


CHANGE TO DECIMAL ASCIZ 
TYPE WITHOUT LEADING ZEROS 


sTYPE 2 SPACES 

sPUT =2(R4) ON THE STACK 
CHANGE TO DECIMAL ASCIZ 
TYPE Ne LEADING ZEROS 


:BRANCH If So 
;TEST 14 
BRANCH IF SO 


R4) ON Lh STACK 

ive & TO DECIMA 

YPE WITHOUT LEADING. ZEROS 
XIMUM 0 


ASCi* 


ASC 


stVpE ene TIMED" 
TYPE "SEARCH TIME’ 
sNEXT MESSAGE POINTER 


IF NONE EXIT 


sEXIT 


THE T 
(R2) BY THE AMOUNT SPECIFIED BY. Tire, 


; TRACK NUMBER GREATER THAN LT15 
; TRACK NUMBER INCREMENTED 


LAST TRACK COMPLETED? 
sYES--EXIT 


SEQ 0132 
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MVAO RMOS 
EGER DivIDE ROUTINE SEQ 0133 
865 032160 063702 002340 ADD 1T,R2 sNO--UPDATE TRACK 

866 O33te4 $5538 002336 CMP R2,LT sTRACK TO B1G? 

867 032170 003402 BLE 1$ sNO--EXIT 

868 032172 013702 002336 MOV LT,R2 :YES=--SET TRACK TO LAST TRACK 
869 032176 005720 1$: TST (rO)+ SADJUST FOR RETURN 2 

870 032200 000200 28: RTS RO : RETURN 

872 

873 ;THIS SUBROUTINE WILL INCREMENT THE CYLINDER 

874 jNUMBER (R1) BY THE AMOUNT SPECIFIED BY ‘IC’. 

875 CALL 

876 ; JSR RO, INCCYL 

877 : RETURN sCYLINDER NUMBER GREATER THAN LC15 
378 ; RETURN2 CYLINDER NUMBER INCREMENTED 
880 032202 020137 002330 INCCYL: CMP R1,LC ZLAST CYLINDER COMPLETED? 

881 032206 001410 BEQ 2$ SYES@-EXIT 

882 032210 063701 002332 ADD 1C,R1 :NO=-UPDATE CYLINDER 

883 032214 020137 002330 CMP R1,1\ sCYLINDER TO BIG? 

884 032220 003402 BLE 1$ :NO=-EXIT 

885 032222 013701 002330 MOV can | sYES=-SET CYLINDER TO LAST CYLINDER 
886 032226 005720 1$: TST (RO)+ sADJUST FOR RETURN 2 

887 032230 000200 2$: RTS RO : RETURN 

889 sTHIS ROUTINE DECREMENTS THE SECTOR ADDRESS. 

890 CALL 

891 ; CLR -(SP) :CLEAR THE STACK 

89 ; JSR PC, DECSEC :SUBROUTINE ENTRY 

4d, ; RETURN 

895 032232 113766 045564 000002 DECSEC: MOVB  RM.REG+RMDA,2(SP) :PUT THE SECTOR ADDRESS ON THE STACK 
896 032240 005366 000002 DEC 2(SP) :DECREMENT THE ADDRESS 

897 032244 100003 BPL 1$ :BR IF NOT CORRECTION NEEDED 
898 032246 013766 002456 000002 MOV PRMLMT+24,2(SP) :OVERFLOW OCCURED, FORCE TO MAXIMUM ADDRESS 
899 032254 000207 1$: RTS PC :RETURN 

901 ;THIS SUBROUTINE 1S USED TO FILL THE DATA BUFFER 

902 sW1ITH ADDRESSES FROM 0 TO 31 WITH EACH ADDRESS 

903 sBEING STORED IN 256 CONSECUTIVE LOCATIONS 

904 CALL 

905 ; JSR PC, FILBUF 

a8 ; RETURN 

908 032256 104412 FILBUF: SAVREG SAVE RO - RS 

909 032260 005000 CLR R sFIRST DISK ADDRESS 

910 032262 012701 052776 MOV #BUFFER,RI :START FILLING HERE 

911 032266 012702 000400 1$: MOV #256. ,R2 :D0 256 WORDS 

912 032272 010021 2s: MOV RO,(RI)¢ STORE 

913 032274 005302 DEC R2 MORE? 

914 032276 003375 BGT 2s 7 YES--BRANCH 

915 032300 005200 INC RO :NO--UPDATE DISK ADDRESS 

916 032302 023700 002456 CMP PRMLMT+24,R0 : DONE? 

917 032306 103367 BHIS 1$ 3NO--BRANCH 

918 032310 104413 RESREG sRESTORE RO - RS 

919 032312 000207 RTS PC s RETURN 

921 ;THIS ROUTINE WILL CLEAR THE BUFFER BY 
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INTEGER DivIDE ROUTINE SEQ 0154 
92 sSETTING LACH WORD TO °177400"'. 
92 CALL 
924 3 JSR RO, CLRBUF 
+4 3 RETURN 
927 032314 1046412 CLRBUF: SAVREG SAVE RO = RS 
928 O3$358 012701 177400 MOV bbe 9g R1 ;WORD TO FILL oper 1 
929 032322 HEAT 052776 MOV #BUFFER,R2 FIRST ADDRESS OF BUF 
930 oasees 01270 112776 MOV WBUFFER+<512. #32.>,R3 LAST ADDRESS OD” OF BUFFER 
931 032332 010122 1$: MOV R1,(R2)¢ sFILL WORDS 1, 9,...269,...5625 
4 032334 010122 MOV R1,(R2)¢ FILL WORDS g-10....250,.. 5626 
933 032336 010122 MO¥ R1,(R2)¢ sFILL WORDS 3,11,...251,...5627 
934 032340 010122 MOV R1,(R2)+ FILL WORDS 4,12,...252,...5628 
935 032342 010122 MOV R1,(R2)4 FILL WORDS 5,13,...253,...5629 
936 032344 010122 MOV R1,(R2)4 sFILL WORDS 6,14,...254,...5630 
937 032346 010122 MOV R1,(R2)¢ sFILL WORDS 7,15,...255,...5631 
938 032350 010122 MOV R1,(R2)¢ FILL WORDS 8,16,...256,...5632 
939 032352 020203 CMP R2, ; DONE? 
940 032354 103766 BLO 1$ ;NO--BRANCH 
941 032356 104413 RESREG ;RESTORE RO - RS 
v4 | 032360 000200 RTS RO ;RETURN FROM CALL 
944 ; THIS ROUTINE IS USED TO CHECK THE DATA BUFFER 
945 3FOR ADDRESSES 0 THROUGH 31 WITH EACH ADDRESS 
946 BEING STORED IN 256 CONSECUTIVE LOCATIONS 
947 CALL 
948 : JSR RO, CKSCTR 
368 3 RETURN 
951 032362 104412 CKSCTR: SAVREG sSAVE RO - R5 
52 032364 162706 000004 SuB #4,SP RESERVE TEMP. STORAGE AREA 
53 032370 005001 CLR R1 sFIRST SECTOR 
954 032372 012716 052776 MOV #BUFFER, (SP) yFIRST ADDRESS OF DATA BUFFER 
955 032376 005066 000002 CLR 2(SP) sNO ERRORS 
956 032402 012702 000020 1$: MOV #16.,R2 LOOP COUNT (16*16=256) 
957 032406 011603 MOV (SP) ,R3 GET 1ST ADDRESS OF THIS SECTORS DATA 
958 032410 2s: 
962 032410 020123 CMP R1,(R3)¢ sWORD 1 
032412 001063 BNE 7$ BRANCH IF BAD 
032414 020123 CMP R1,(R3)+ sWORD 2 
032416 001061 BNE 7$ BRANCH IF BAD 
032420 020123 CMP R1,(R3)¢ WORD 3 
032422 001057 BNE 7$ s;BRANCH IF BAD 
032424 020123 CMP R1,(R3)¢ WORD 4 
032426 001055 BNE 7$ ;BRANCH IF BAD 
0324 020123 CMP R1,(R3)¢ s;WORD 5 
032432 001053 BNE 7$ :BRANCH IF BAD 
032434 020123 CMP R1,(R3)¢ sWORD 6 
032436 001051 BNE 7$ BRANCH IF BAD 
032440 020123 CMP R1,(R3)¢ sWORD 7 
032442 001047 BNE 7$ ;BRANCH IF BAD 
032444 020123 CMP R1,(R3)+ WORD 8 
032446 001045 BNE 7$ BRANCH IF BAD 
032450 020123 CMP R1,(R3)+ sWORD 9 
032452 001043 BNE 7$ ;BRANCH IF BAD 
032454 020123 CMP R1,(R3)¢ s;WORD 10 
032456 001041 BNE 7$ BRANCH IF BAD 


CZRMVAO RMOS/3/2 EXT'D 
INTEGER DivIDE ROUTINE 
032460 020123 
033469 061087 
032464 020123 
032466 001035 
032470 020123 
032472 001033 
032474 020123 
032476 001031 
032500 020123 
032502 001027 
032504 020123 
032506 001025 
963 032510 005302 
964 032512 001336 
965 032514 062716 
966 032520 005201 
967 032522 023701 
968 032526 103325 
969 032530 005766 
970 032534 001406 
971 032536 123737 
972 032544 101002 
973 032546 013700 
974 032552 062706 
975 032556 104413 
976 032560 000200 
977 032562 010304 
978 032564 161604 
979 032566 010405 
980 032570 006204 
981 032572 042705 
982 032576 001002 
983 032600 012705 
984 032604 006305 
985 032606 062705 
986 032612 016337 
987 032620 005766 
988 032624 001015 
989 032626 013737 
990 032634 113737 
991 032642 012737 
992 032650 104021 
993 032652 105166 
99% 032656 000404 
995 032660 
032660 012737 
996 052666 104022 
997 032670 032777 
998 052676 001325 
999 032700 032777 
1000 032706 001310 
1001 O82710 128737 
1002 082716 101715 
1003 032720 032777 
1004 032726 001c72 
1005 032780 000115 


DR TST 


201000 
002456 
000002 
001462 


001346 
000004 


177740 
000040 
032410 
177776 
000002 
045550 
045547 
032652 


000002 


032670 
001000 
000002 
001462 
000040 
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001117 


001142 


001364 
001370 
001222 


001222 
146256 
146246 
001117 
146226 


3$: 


4$: 


5$: 


6$: 


7$: 


8$: 


9$: 


10$: 


11$: 


R1,(R3)¢ ;WORD 11 

7$ ;BRANCH IF BAD 

R1,(R3)¢ sWORD 12 

7$ ;BRANCH_IF BAD 

R1,(R3)¢ ;WORD 13 

7$ ;BRANCH IF BAD 

R1,(R3)+ : V4 

7$ ;BRANCH IF BAD 

R1,(R3)+ ;WORD 15 

7$ ;BRANCH IF BAD 

R1,(R3)+ ;WORD 1 

7$ ;BRANCH IF BAD 

R2 FINISHED WITH THIS SECTORS DATA? 
;NO--BRANCH 


2$ 

4 tatalamati 
+ arated ; DONE 
2(SP) 
$ 


:YES--FIRST ADDRESS OF NEXT SECTOR 
ae NEXT SECTOR 


6 3NO--BRANCH 
ERR.CT,SERFLG ;MAX. ERROR OCCURRED? 
6$ ;NO--BRANCH 
BYPASS,RO ; TAKE ERROR EXIT 
#4,SP sFREE TEMP. AREA 
;RESTORE RO - R5 
RO RETURN FROM CALL 
R3,R4 ;FORM WORD NUMBER AND 
Hh at ;ADDRESS TO CONTINUE FROM 
RG ;WORD NUMBER 
#*C37,R5 
8$ ;BRANCH IF NOT A MULTIPLE OF 16 
+ tea ;SET TO WORD 16 


#2$,R5 ; ADDRESS 
-2(R3) ,SBDDAT 
2(SP) 


10$ ;NO--BRANCH 
DTADPB+12,CYL.DS ;CYLINDER NUMBER 
DTADPB+11,TRK.DS ; TRACK NUMBER 
Syren teare ; ESCAPE TO 9$ ON ERROR 
2(SP) 7SET ERROR SWITCH 

118 
#11$,SESCAPE ;z;ESCAPE TO 11$ ON ERROR 
#SW09,aSWR rg ON ERROR? 

rs 

#SWO01,aSWR ;STOP DATA COMPARE? 

4 : YES--BRANCH 
ERR.CT,SERFLG ;MAX. ERRORS? 

.. 5 7: YES--BRANCH 

#SWU>,ASWR ;REPORT ONLY 1ST ERROR PER SECTOR? 
tee ; YES--BRANCH 


:SAVE BAD DATA 
‘FIRST ERROR? 


SEQ 0155 
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INTEGER DivIDE ROUTINE SEQ 0136 
1007 THIS ROUTINE WILL MOVE THE 16 WORDS OF THE 
ioe8 sDESIRED PATTERN INTO THE DATA BUFFER. 
7 CALL 

1010 : MOV #NX,RO ;PATTERN NUMBER INDEX TO RO 

3 : JSR PC, SETBUF 

1018 032732 104412 SETBUF: SAVREG AVE RO - R5 

1014 032734 012701 052776 MOV #BUFFER,R1 :PIRST ADDRESS 

1015 032740 013702 045542 MOV DTADPB+d R2 ;WORD COUNT 

1016 032744 016003 003520 1$: MOV PAT.PT(RO),R3 = PICKUP PATTERN POINTER 

1019 032750 012321 MOV (R3)+,(R1)¢ ‘MOVE WORD 1 INTO DATA BUFFER 
032752 012321 MOV (R3)+,(R1)¢ MOVE WORD 2 INTO DATA BUFFER 
032754 012321 MOV (R3)4+,(R1)¢4 MOVE WORD 3 INTO DATA BUFFER 
032756 012321 MOV (R3)+,(R1)¢ MOVE WORD 4 INTO DATA BUFFER 
032760 012321 MOV (R3)+,(R1)¢ ;MOVE WORD 5 INTO DATA BUFFER 
032762 012321 MOV (R3)4+,(R1)¢ MOVE WORD 6 INTO DATA BUFFER 
032764 012321 MOV (R3)+,(R1)4 :MOVE WORD 7 INTO DATA BUFFER 
032766 012321 MOV (R3)+,(R1)¢ MOVE WORD 8 INTO DATA BUFFER 
032770 012321 MOV (R3)+,(R1)¢ MOVE WORD 9 INTO DATA BUFFER 
032772 012321 MOV (R3)+,(R1)¢ MOVE WORD 10 INTO DATA BUFFER 
032774 012321 MOV (R3)4+,(R1)¢ MOVE WORD 11 INTO DATA BUFFER 
032776 012321 MOV (R3)+,(R1)¢ ;MOVE WORD 12 INTO DATA BUFFER 
033000 012321 MOV (R3)+,(R1)¢4 :MOVE WORD 13 INTO DATA BUFFER 
033002 012321 MOV (R3)+,(R1)¢ MOVE WORD 14 INTO DATA BUFFER 
033004 012321 MOV (R3)+,(R1)4 MOVE WORD 15 INTO DATA BUFFER 
033006 012321 MOV (R3)+,(R1)¢ ;MOVE WORD 16 INTO DATA BUFFER 

1020 033010 062702 000020 ADD #16. /R2 ; DONE? 

1021 033014 001353 BNE 1$ :NO--BRANCH 

1022 033016 104413 RESREG [RESTORE RO - RS 

Hs $4 033020 000207 RTS PC * RETURN 

1025 THIS ROUTINE COMPARES A 16 WORD DATA PATTERN 

1026 sAGAINST THE DATA BUFFER 

1027 CALL 

1028 : MOV #NX,RO ;PATTERN NUMBER INDEX TO RO 

1029 : JSR PC,DATCMP 

1030 : RETURN 

1032 033022 104412 DATCMP: SAVREG sSAVE RO - R5 

1033 033024 012701 052776 MOV #BUFFER,RI sFIRST ADDRESS OF BUFFER 

1034 033030 013702 045542 MOV DTADPB+4,R2 WORD COUNT 

1035 033034 005046 CLR -(SP) NO ERR 

1036 033036 016003 003520 1$: MOV PAT.PT(RO),R3 PATTERN POINTER 

1037 033042 2s: 

1040 033042 162321 SuB (R3)+,(R1)+ :CHECK WORD 1 
033044 001044 BNE 4$ ‘BRANCH IF DIFFERENT 
033046 162321 SUB (R3)+,(R1)¢ CHECK WORD 2 
033050 001042 BNE 4 ‘BRANCH IF DIFFERENT 
033052 162321 SUB (R35)+,(R1)+ s CHECK WORD 
033054 001040 BNE 4$ ‘BRANCH IF DIFFERENT 
033056 162321 SUB (R3)+,(R1)¢ CHECK WOR 
033060 001036 BNE 4$ ‘BRANCH IF DIFFERENT 
033062 162321 SUB (R3)+,(R1)¢ “CHECK WORD 5 
033064 001034 BNE 4$ BRANCH” IF DIFFERENT 
033066 162521 SUB (R3)#,(R1)¢ sCHECK WORD 6 
033070 001032 BNE 4$ :BRANCH If DIFFERENT 
033072 162321 SUB (R3)+,(R1)¢ ; CHECK dD? 
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CZRMVAO RMOS/3/2 EXT'D 
INTEGER DivIDE ROUTINE SEQ 0137 
033074 001030 BNE 4$ :BRANCH IF DIFFERENT 
Beeiee 162321 $uB (R3)4+,(R1)¢ :CHECK WORD 8 
033100 001026 BNE 4$ ‘BRANCH IF DIFFERENT 
033102 162321 SUB (R3)+,(R1)4 : CHECK WORD 9 
033104 001024 BNE 4$ ‘BRANCH IF DIFFERENT 
033106 162321 SUB (R3)+,(R1)¢ sCHECK W 
033110 001022 BNE 4$ ‘BRANCH IF DIFFERENT 
033112 162321 SUB (R3)4,(R1)4 ‘CHECK WORD 11 
033114 001020 BNE 4 ‘BRANCH IF DIFFERENT 
033116 162321 SUB (R3)+,(R1)4 [CHECK WORD 12 
033120 001016 BNE 4$ ‘BRANCH IF DIFFERENT 
033122 162321 SUB (R3)4,(R1)4 [CHECK WORD 13 
033124 001014 BNE 4$ ‘BRANCH IF DIFFERENT 
033126 162321 SUB (R3)4+,(R1)4 [CHECK WORD 14 
033130 001012 BNE 4$ :BRANCH IF DIFFERENT 
033132 162321 SUB (R3)+,(R1)4 sCHECK WORD 15 
033134 001010 BNE 4$ ‘BRANCH IF DIFFERENT 
033136 162321 SUB (R3)+,(R1)¢4 [CHECK WORD 16 
033140 001006 BNE 4$ :BRANCH IF DIFFERENT 
1041 033142 062702 000020 ADD #16.,R2 [DONE ? 
1042 033146 001333 BNE 1$ :NO--BRANCH 
1043 033150 005726 3$: TST (SP)¢4 [YES == CLEAN UP STACK 
1044 033152 104413 RESREG SRESTORE RO - RS 
1045 033154 000207 RTS PC 
1046 033156 010104 4$: MOV R1,RG :FORM THE WORD NUMBER 
1047 033160 162704 052776 SUB WBUFFER,RG 
1048 033164 006204 ASR RG :WORD NUMBER 
1049 033166 010305 MOV R3,R5 :FORM ADDRESS TO CONTINUE FROM 
1050 0331 166005 003520 SUB PAT.PT(RO),RS 
1051 033174 006305 ASL R5 
1052 033176 062705 033042 ADD #2$,R5 s ADDRESS 
1053 033202 064341 ADD -(R3) ,-(R1) *RECONSTRUCT THE BAD WORD 
1054 033204 010137 001136 MOV R1,$BDADR ;SAVE THE ERROR INFORMATION 
1055 033210 010337 001134 MOV R3,SGDADR : 
1056 033214 012137 001142 MOV (R1)+,$BDDAT : 
1057 033220 012337 001140 MOV (R3)+,$GDDAT 5 
1058 033224 005716 TST (SP) :1ST DATA COMPARE ERROR? 
1059 033226 001023 BNE 6$ >NO-~BRANCH 
1060 033230 013737 045550 001364 MOV DTADPB+12,CYL.DS s CYLINDER 
1061 033236 113737 045547 001370 MOVB  DTADPB+11,TRK.DS : TRACK 
1062 033264 113737 045546 001366 MOVB DTADPB+10.SEC.DS = SECTOR 
1063 033252 016600 000016 MOV 16(SP) ,RO :GET TEST PC+4 
1064 033256 012737 033266 001222 MOV #5$, SESCAPE >:;ESCAPE TO 5$ ON ERROR 
1065 033264 104013 EMT 13 
1066 033266 016600 000014 5$: MOV 14(SP),R0 PATTERN NUMBER INDEX 
1067 033272 105116 COMB es SP*) =SET THE ERROR SWITCH 
1068 033274 000404 BR 7$ 
1069 033276 6$: 
033276 012737 033306 001222 MOV #7%,SESCAPE ; ESCAPE TO 7$ ON ERROR 
1070 033304 104014 EMT 14 
1071 033306 032777 000002 145640 7%: BIT #SWO1,aSWR :STOP DATA COMPARE? 
1072 033314 001315 BNE 3$ > YES--EXIT 
1073 033316 123737 001462 001117 CMPB se @ERR.CT,SERFLG =: MAX. ERRORS? 
1074 033324 101004 BHI 8$ :NO=-BRANCH 
1075 033526 013766 001346 000016 MOV BYPASS, 16(SP) :YES==ERROR EXIT 
1076 0333 000705 BR 3$ 
1077 033336 000115 8$: JMP (RS) :NO--CONTINUE AT NEXT WORD 


CZRMVAO RMOS/3/2 EXT'D DR TST 
INTEGER DivIDE ROUTINE 


1078 
1079 
1080 
1081 
1082 
1083 
1084 
1085 
1086 
1087 
1088 033340 012701 052776 
1089 033344 013702 002456 
1090 033350 004037 033560 
1091 033354 005302 
1092 033356 100374 
1093 033360 000200 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 033362 013746 025646 
1104 033366 013746 025650 
1105 Oseeie HAS 053776 
1106 033376 012701 054776 
1107 033402 010103 
1108 033404 011237 025650 
1109 033410 016237 000002 
1110 033416 004037 03356 
1111 033422 012637 025650 
1112 Oaeees 012637 025646 
1113 033432 005046 
1114 033434 162322 
1115 033436 001441 
1116 033440 012737 033512 
1117 033446 064342 
1118 033450 010237 001136 
1119 033454 010337 001134 
1120 033460 Oise? 001142 
112° 033464 012537 001140 
1122 033470 010204 
1123 033472 162704 053776 
1124 033476 ppecve 
1125 033500 005716 
1126 033502 001002 
1127 033504 105116 
1128 033506 104015 
1129 033510 

033510 104016 
1130 033512 032777 001000 
1131 033520 O01u12 
1132 033522 123737 001462 
1133 033530 101406 
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sTHIS ROUTINE WILL FILL THE DAT 


A BUFFER (256*22 WORDS) WITH 


] 
;A_RANDOM PATTERN. .THE FIRST TWO WORDS OF EVERY 256 WILL 
;BE THE BASE OF THE RANDOM NUMBER GENERATOR FOR THE 


sNEXT 254 WORDS 


:NOTE: THIS ROUTINE DESTROYS R1 
: JSR RO,FILRAN 
: RETURN 
FILRAN: MOV #BUFFER,R1 

MOV PRMLMT+24,R2 
1$: JSR RO,RANPAT 

DEC R2 

BPL 1$ 

RTS RO 


AND R2 


MAXIMUM NUMBER OF SECTORS 


THIS ROUTINE USES THE FIRST TWO WORDS OF THE 

;READ BUFFER TO GENERATED A RANDOM PATTERN. THEN 

;THE READ BUFFER IS COMPARED TO THE PATTERN GENERATED. 
NOTE: THIS ROUTINE DESTROYS R1-R4 


3; CALL 
3 JSR RO,RANCK 
: RETURN 
RANCK: MOV SHINUM, (SP) 
MOV SLONUM,-(SP) 
MOV #BUFFER+512.,R2 
MOV #BUFFER+1024._,R 
MOV R1,R3 
MOV (R23), $LONUM 
025646 MOV 2(R2),$HINUM 
JSR RO,RANPAT 
MOV (SP)+, $LONUM 
MOV (SP)+,$HINUM 
CLR -(SP) 
1$ SUB (R3)#,(R2)¢4 
BEQ 4$ 
-001222 MOV #3%, SESCAPE 
ADD -(R3) ,-(R2) 
MOV R2,$BDADR 
MOV R3.$GDADR 
MOV (R2)+, $BDDAT 
MOV (R3)+-$GDDAT 
MOV R2,R4 
SUB WBUFFER+512. RG 
ASR RG 
TST (SP) 
BNE 2$ 
COMB 3s SP?) 
EMT 15 
23: 
EMT 16 
145434 38: BIT #SW09, aSWR 
N 
001117 CMPB ss ERR. CT, SERFLG 
BLOS)=sS$ 


;SAVE THE PRESENT RANDOM NUMBER 


;READ BUFFER ADDRESS 
1 ;RANDOM PATTERN ADDRESS 
COPY IT INTO R3 FOR LATER USE 
;PRIME THE RANDOM NUMBER GENERATOR 


;GENERATE A RANDOM PATTERN 
sRESTORE PRESENT RANDOM NUMBER 


3NO ERRORS 

;ARE THESE TWO WORDS DIFFERENT? 
;NO--BRANCH 

;;ESCAPE TO 3$ ON ERROR 
;RECREATE THE BAD WORD 

;ADDRESS OF BAD DATA 

sADDRESS OF GOOD DATA 

;BAD DATA 

;GOOD DATA 

;FORM WORD NUMBER (1 T0 256) 


sFIRST ERROR 
;NO--BRANCH 
:YES--SET ERROR SWITCH 


;LOOP ON ERROR? 

; YES--BRANCH 

;MAX. ERRORS OCCURRED? 
; YES--BRANCH 


SEQ 0138 


| 


Do 


WWW 
mw 


~ 
@zmrm 

oo-ooco e 
Cooowvow mn 
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m> 
o™~ 


WWAAWIWI UII 
VVIVIVWMUIUIV UT 
Wn EE ew 
Ormroe fron 


Ses 
For 


“IAMS WN = SODA UE WIN O ODO UE WW O OONO UE WW—O0OO~N 


SOOCOSOOO™SCOOCOOoCoOooOoCoOoCOoOOo 
SSSSSS 


Seas eecvessrs 


RRSFNS 


Soo 


a tat ah tt a nt tt at nit tn at at at st i a a a a a i at a an as an an an a a a a a ss Ss Ss Ss Ss Ss Ss Ss OE 
ee ee eT  ___.._.._.. ee eee ee eee eee eS 


(AO DE EEE EE 


soc 
oo 
WA 
Pb | 


010246 


000200 


oor essssy o--—--S 
Sonvwnw SOWAIN Vw & 
Ur —* WEP —@ WENN a mt es 


DR TST 


000002 


001346 


000200 


025550 
025650 
025646 


025550 


025646 


002456 


001372 


002326 
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145414 


BIT #SWO1,aSWR ;STOP COMPARING? 
BNE 5$ ; YES--BRANCH 
4$: CMP R1,R3 sALL DATA BEEN COMPARED? 
BH] 1$ ;NO--BRANCH 
5$: TST ($P)+ sERROR OCCUR? 
BEQ 6$ ;NO--BRANCH 
MOV BYPASS ,RO ; TAKE ERROR EXIT 
6$: RTS RO sEXIT 


sTHIS ROUTINE FILLS A 256 WORD BUFFER WITH A RANDOM 
:PATTERN OF WHICH THE FIRST TWO WORDS ARE THE BASE 
;OF THE PATTERN. 


s CALL 
: MOV #ADR,RI sADDRESS OF THE BUFFER 
; JSR RO, RANPAT 
: RETURN 
RANPAT: MOV R2,-(SP) :SAVE R2 
HOV #256./2. .R2 [GENERATE 256 WORDS 
1$: JSR PC, SRAND :GENERATE A RANDOM NUMBER 
2$: MOV SLONUM,(R1)* | :PUT LOW WORD IN BUFFER 
MOV SHINUM.(R1)+ | :PUT HIGH WORD IN BUFFER 
DEC R2 :DONE? 
BGT 1$ ‘NO=-BRANCH 
MOV (SP)+,R2 SRESTORE R2 
RTS RO ; 


:THIS ROUTINE GENERATES RANDOM CYLINDER, TRACK, AND SECTOR 
TADDRESSES AND SAVES THEN IN THE DPB (DTADPB+10, 11 & DTADPB+12). 


RANADR: 


JSR 
RETURN 


RO,RANADR 


PC, SRAND 
SLONUM,R1 
SLONUM+1,R2 
SHINUM, RS 


2$ 
PRMLMT+24,R1 
3$ 


NOTE: THIS ROUTINE DESTROYS R1-R3 
> CALL 


;GENERATE A RANDOM NUMBER 

:FORM SECTOR IN R1 

sFORM TRACK IN R2 

sFORM CYLINDER IN R3 

ENSURE THE SECTOR 1S BETWEEN 0 AND 31 


CHECK MAXIMUM SECTOR ADDRESS 


ENSURE THE TRACK IS BETWEEN 0 AND LAST TRACK 


sENSURE THE CYLINDER IS BETWEEN FC AND iC 


SEQ 0139 
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COOOCOCOCOCOCOOOCOCOOCOoOoOOCOoOoOoOOoOOoOO Fz 
Ann 
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032777 


000410 


012703 


000207 


DR TST 


002330 


002326 


045546 
045547 
045550 


000200 
034014 
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145150 


001316 


ADC R3 
BNE 6$ 
MOV R1,R3 
SWAB R3 
ADD R2,R3 
INC R3 
BGT 6$ 
NEG R3 
BR 
7$ CMP LC,R3 
BGE 
CLC 
ROR R3 
BR 
8$: CMP FC,R3 
BLE 
INC R3 
SWAB R3 
BPR 7$ 
9$: MOVB R1,DTADPB+10 SAVE SECTOR ADDRESS 
MOVB R2,DTADPB+11 SAVE TRACK ADDRESS 
“44 R2 -DTADPBY 2 sSAVE CYLINDER ADDRESS 


THIS ROUTINE IS USED TO INPUT THE ‘'CONTROL SWITCHES’. 

:1F SWR<O7>=1 THE PRESENT SETTING WILL BE TYPED AND THE NEW 
SETTING 1S READ AND STORED. 

one THIS ROUTINE DESTROYS R3 AND R4 


PC ,GETSWR 


JSR 
; RETURN :(C.SWRI=DESIRED CONTROL SWITCHES 


GETSWR: BIT #SWO7,aSWR READ CONTROL SWITCHES? 
BEQ 2% ;NO--BRANCH 


TYPE 65% ::TYPE ASCIZ STRING 
R 4$ -:GET OVER THE ASCIZ 
jigs: ASCIZ <CRLF>/SET SWR<07>=0/ 
1$: MOV #MSG.CS,R3 sCONTROL SWITCHES="" 
MOV C.SWR,R4 [PRESENT CONTROL SWITCH SETTINGS 
JSR RO, GETNUM [GET THE NEW SWITCH SETTINGS 
BR 1$ > COMMA 
NOP *PERIOD 
MOV C.SWR,SAVCSW § ;SAVE PREVIOUS VALUE 
MOV R4,C.SWR : DOUBLE PERIOD-SAVE NEW SWITCH SETTING 
2$: RTS ‘RETURN FROM CALL 


THIS ROUTINE WILL TYPE AN ASCIZ MESSAGE AND THEN 
INPUT AN ASCIZ STRING AND CHANGE THE STRING TO OCTAL 
:1F REQUIRED. 

74% THIS ROUTINE DESTROYS R1 


: MOV #ADR,R3 
MOV #NUM,RG 


: ADDRESS OF ASCIZ MESSAGE 
: JSR RO, GETNUM 


S 
;OCTAL NUMBE 


; INPUT TERMINATED WITH A COMMA 
sWITH A PERIOD 


RETURN1 
RETURN2 


SEQ 0140 
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INTEGER DivIDE ROUTINE SEQ 0141 
1245 : RETURN3 zWITH A DOUBLE PERIOD 
1246 : [R4=INPUT NUMBER AND 
1247 : 7R2=R4"32 FOR ALL 
1S¢6 ; THREE RETURNS 
1250 034070 010337 034076 GETNUM: MOV R3,2$ 3 SAVE a | Bs + aaa 
1251 034074 104401 1$: TYPE :TYPE THE MESSAGE 
1238 034076 000000 2s: WORD 0 MESSAGE POINTER GOES HERE 
1253 034100 010446 MOV R4,-(SP) i SAVE R4 FOR TYPEOUT 
034102 104402 TYPOC {60 TYPE=-OCTAL ASCII(ALL DIGITS) 
1254 034104 104401 045725 TYPE » SLASH 
1255 034110 104411 RDLIN hh AN ASCIZ STRING 
1256 034112 012601 MOV (SP)+,R1 SADDRESS OF FIRS! CHARACTER 
1257 034114 004037 036340 JSR RO,CK.CHR [CHECK ONE CHARACTER 
034120 034074 1$ ILLEGAL CHARACTER 
034122 034074 1$ CARRIAGE RETURN 
034124 034136 4$ oy 
034126 034162 8$ tal 
034130 034170 9$ ~~ 
034132 03413 3$ :DIGIT 0-9 
1258 034134 005301 3$: DEC R1 ;DECREMENT THE INPUT POINTER 
1259 034136 4$: 
034136 004037 036600 JSR RO,CK.NUM CHECK THE NUMBER 
034142 034074 1$ ILLEGAL INPUT 
034144 034156 7$ TERMINATED WITH A ‘’,"’ OR “‘CR'’ 
034146 034154 6$ ‘TERMINATED WITH A ‘'." 
034150 034152 5$ ‘TERMINATED WITH A ‘'.."* 
1260 034152 005720 5$: TST (RO)+ DOUBLE PERIOD 
1261 034154 005720 6$: TST (RO)+ SINGLE PERIOD 
1262 034156 010204 7$: MOV R2,R4 ;COMMA=-SAVE INPUT NUMBER 
1263 034160 000414 BR 11$ 360 TO EXIT 
1264 034162 105711 8$ TSTB (R1) ‘TERMINATOR AFTER A COMMA? 
1265 034164 001343 BNE 1$ ;NO==LOOP 
1266 034166 000411 BR 118 YES--EXIT 
1267 034170 105711 9$ TSTB (R1) “TERMINATOR AFTER A PERIOD? 
1268 034172 001406 BEQ 10$ i YES@-EXIT 
1269 034174 122721 000056 CMPB wy, (R1)4 ;NO=-DOUBLE PERIOD? 
1270 034200 001335 BNE 1$ :NO=-LOOP 
1271 034202 105711 TSTB (R1) ; YES~=TERMINATOR? 
1272 034204 001333 BNE 1$ NO--LOOP 
1273 034206 005720 TST (RO)+ DOUBLE PERIOD 
1274 034210 005720 10$: TST (RO) + :PERIOD 
1275 034212 010402 11$: MOV R4,R2 sCOMMA--POSITION THE 
1276 034214 000302 SWAB R2 NUMBER IN CASE IT 
1277 034216 006202 ASR R2 31S THE PRIORITY LEVEL 
1278 034220 006202 ASR R2 
1279 034222 006202 ASR R2 
ico? 034224 000200 RTS RO EXIT 
1282 THIS ROUTINE 1S USED TO CHANGE OR MODIFY 
1283 THE TEST PARAMETERS. IT GIVES THE OPERATOR 
1284 “THE CAPABILITY OF SPECIFYING WHICH DRIVES TO TEST, WHICH 
1285 STESTS TO RUN AND HOW MANY TIMES TO 
1286 SREPEAT EACH TEST 
1288 034226 104412 GT.PRM: SAVREG sSAVE RO - R5 
1289 034230 005037 001326 GT.PR1: CLR DRVSEL ‘NO DRIVE SELECTED 








CZRMVAO RMOS/3/2 EXT'D 
INTEGER DivIDE ROUTINE 
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001334 
001336 
000123 
000777 
000124 


036000 


M11 
MACRO VO03.01 11-APR-80 15:01:20 PAGE 14-44 


;;658: 
648: 


1$: 


001326 3$: 


001326 4$: 
G 


000001 


1$: 


GTTST2: 


001330 
1$: 
001330 


,65$ 


64% 3 
<CRLF>/DRIVE(S)=/ 


(S$P)+,R1 
RO,CK.CHR 


R1 


#7 ,R2 
RO,CK.D1G 


ATABIT(R2), DRVSEL 
-(R1) 


2$ 
TSTNMS 
TSTNMS+#2 


GTTST1 
ATABIT(R2), bavsei 


PC 


1 

#777, TSTNMS 
GTTST3 
(R1),#°T 

2$ 

#36000, TSTNMS 
GTTST3 


33 TYPE ASCIZ STRING 
T OVER THE ASCIZ 


sREAD TTY 
ADDRESS OF aenee Ie Dane 


;CHECK ONE CHARA 


ILLEGAL CHARACTER 
: CARRIAGE RETURN 


‘DIGIT 0-9 


UPPER LIMIT OF INPUT 
;CHECK THE DIGIT(S) 


3: TYPE ASCIZ STRING 
3;GET OVER THE ASCIZ 


ILLEGAL INPUT 


:INPUT TO LARGE 

:TERMINATED WITH A ‘',"' OR “eR 

;TERMINATED WITH A ‘'."' 

:TERMINATED WITH A "’. 
;SET THE DRIVE SELECTED BIT 

WAS THE LINE TERMINATED? 
:NO-GET THE NEXT DRIVE 
:DESELECT ALL TESTS 


YES--SELECT TEST 
ie ~ SELECTED DRIVE BITS 


RESTORE R 
IT 


:POIN 
:DOUBLE PERIOD? 


:NO--BRANCH 


:"'CR' ws 
sVES~--EXI1T 


:NO TEST SELECTED 
;NO TESTS TO BE OPENED 
sALL SEEK TESTS? 


3NO--BRANCH 


:YES--SELECT TESTS 0-10 
sALL pein TESTS? 


:NO--BRA 


tVES=SELECT TESTS 12-15 


READ AN ASCIZ STRING 
TER TO R1 


SEQ 0142 





CZRMVAO RMOS/3 

INTEGER DiVIDE 
1327 034504 
1328 034510 
1329 034512 
1330 034520 
1331 034522 
1352 924526 
1338 034530 
1334 034536 
1335 034540 
1336 034544 
1337 034546 
1338 034554 
1359 034556 
1340 03456 
1341 034564 
1342 034566 
1343 034570 
1344 034574 
1345 034576 
1346 034600 
1347 034602 
1348 034604 
1349 034606 
1350 034610 
1353 034610 
1354 034614 
1g Bas 
1389 o3cege 
1358 034630 
1359 634632 
1360 034634 
1361 034636 
1362 034640 
1363 034646 
1364 034652 
1365 034654 
1366 034656 
1367 034662 
1368 034664 
1369 034666 
1370 034670 
1371 034074 
1372 034676 
1373 034700 
1374 034702 
1375 034704 
1376 034706 
1377 034710 
1380 034710 
1381 034714 
1382 034716 
1383 
1384 034722 
1385 034724 
1386 034726 
1387 034732 


/ 
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060502 
020227 
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023702 


002220 


012637 


DR TST 


000101 
140000 
000104 
000001 
000105 
000002 
036264 


036264 


000022 
035010 
000017 


001526. 


000055 


036264 


036264 


000022 
035010 
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001330 


001332 


001332 


001330 


2$: 
3$: 
4$: 


5$: 


6$: 


7$: 


f 
SEQ 0143 


(R1),M°A TALL ADDRESSING TESTS? 

$ ;NO--BRAN 

#140000, TSTNMS :YES==-SELECT TESTS 16 & 17 
GTTST3 

(R1),#'D :DATA TEST? 

4$ :NO--BRANCH 

#1, TSTNMS+2 SYES@=SELECT TEST 20 
GTTST3 

(R1),#°E TEXERCISER TEST? 

5$ ;NO--BRANCH 

#2, TSTNMS+2 SYES@-SELECT TEST 21 
GTIST3 

RO,CK.OCT ;OCTAL DIGIT? 

GTTST4 :NO--BRANC 

R2,R5 i Pry IT 

R1 :MOVE TO NEXT CHARACTER 
RO,CK.OCT SOCTAL DIGIT 

6$ NO--BRANCH 

R1 “MOVE TO NEXT CHARACTER 

RS :SCALE HIGH DIGIT 

Re } 

R5,R2 : COMBINE HIGH & LOW DIGITS 
R2,#22 :VALID TEST NUMBER? 

GTTST1 :NO--BRANCH 

R2,9$ :SAVE THE TEST NUMBER 

R2_RG ‘CONVERT TEST NUMBER INTO AN INDEX 
#17 RG ‘CLEAR UNWANTED BIT 

RG ‘SHIFT THE BITS 

RG 

RG 

R2 : 
BITS(R2), TSTNMS(R4) sSELECT TEST 
(R1),#'= :TEST STR 1 NG? 

GTTST4 *NO--BRANC 

RI  YES=-MOVE "19 NEXT CHARACTER 
RO,CK.OC SOCTAL DIGIT 

GTTSTi :NO--BRANCH 

R2,R5 *YES=-SAVE IT 

RI “MOVE TO NEXT CHARACTER 
RO,CK.OCT SOCTAL DIGIT 

7$ *NO--BRANCH 

R1 :YES--MOVE TO NEXT CHARACTER 
RS :SCALE HIGH DIGIT 

Re 

R5,R2 :COMBINE HIGH & LOW DIGIT 
R2,#22 :VALID TEST NUMBER? 

GTTST1 :NO=-BRANCH 

$,R2 71S THE FIRST NUMBER OF THE 

‘STRING SMALLER THAN THE LAST? 

GTIST! :NO=-BRANCH 

R2,-(SP) :SAVE ENDING TEST NUMBER 


(SP)+,9$ 


:GET STARTING TEST NUMBER 
STORE ENDING TEST NUMBER 


MVAO RMOS/3/ 
EGER DivVIDE 
1388 0 36 
1389 03474 
1390 034744 
1391 tate] 
1 Ht 03475 
1393 034754 
1394 034756 
1395 0347 
1396 0347 
1397 0347 
1398 034774 
1399 035000 
1400 035002 
1401 035006 
1402 035010 
1403 035012 
1404 035014 
1405 035020 
1406 035022 
1407 035026 
1408 035030 
1409 035034 
1410 035036 
1411 035042 
1412 035046 
1413 035050 
1414 035056 
1415 832060 
1416 035064 
1417 035066 
1418 035072 
1419 035074 
1420 035076 
1421 035100 
1422 035104 
1423 035110 
1424 035112 
1425 035116 
1426 035120 
1427 035124 
1428 p32 $8 
ps 34 035132 
1430 035134 
143° 035136 
163g 035140 
1435 035144 
1434 035150 
1435 035152 
1436 035156 
1437 035160 
1438 035164 
1439 932188 
1440 035170 
1441 035172 
yr 035176 
1445 035202 
1444 035204 
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000054 
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001336 
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034364 
001334 


001336 
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001334 
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001330 


001334 


9$: . 
GTTST3: 


GTTST4: 


1$: 


2$: 


3$: 


4$: 


GTTST5: 


GTTST6: 


1$: 


$ :SHIFT ENDING TEST NUMBER 
R2 :SHIFT TEST NUMBER 

R2_RG :COPY TEST NUMBER INTO R4 
#37,RG [CLEAR LOWER BITS 

R ‘SHIFT THE TEST NUMBER 

RG 

RG 
BITS(R2), TSTNMS(R4) :SELECT THE TEST 
#2,R2 sINECREMENT THE TEST NUMBER 
R2,9$ ‘SEE IF FINISHED 

8$ [BR IF NOT 

#2,R2 [CORRECT TEST NUMBER 
GTTST4 : CONT INUE 

0 *STORE TEST NUMBER HERE 
R1 :MOVE TO NEXT CHARACTER 
(R1) aw" ‘PERIOD’? 

GTTST5 S YES--BRANCH 

TSTWRS :ANY TEST SELECTED THIS CYCLE? 

g Y 

TSTNMS +2 SANY TEST SELECTED THIS CYCLE ? 
1$ ‘BR IF YES 

GTTST1 ‘NO 

(R1),4#°/ 3"'OPEN''? 

2$ :NO=-BRANCH 
B1TS(R2), OPNFLG(R4)  ;YES=-SET BITS FOR TEST TO OPEN 
(R1),#", :"'COMMA''? 

3$ ‘BR IF YES 

GTTST1 :N 
RI [MOVE TO NEXT CHARACTER 
(R1) "CR"? 
4$ ‘BR IF "CR" 
GTTST2 :NO--GO GET NEXT CHARACTER 
OPNFLG SANY TESTS TO OPEN ? 
OPNTST ‘BR IF YES 
OPNFLG+2 ‘ANY TEST’ TO OPEN ? 
OPNTST ‘BR IF YEs 
GTTSTI :NO=-START AGAIN 

1 [MOVE TO NEXT CHARACTER 
(R1),#" :PERIOD''? 
GTTST6  YES=-BRANCH 

R1) "CR? 

$ :YES=-BRANCH 
GTTST1 
OPNFLG sANY TESTS TO OPEN ? 
OPNTST “BR IF Y 
OPNFLG+2 [ANY TESTS TO OPEN ? 
OPNTST “BR IF YES 

GT. PR2 =NO--GO START TESTING 

R1 “MOVE TO NEXT CHARACTER 
(R1) "CR"? 

1$ YES=-BRANCH 

GTTSTI ‘NO--GO ASK FOR TEST 
OPNFLG TANY TESTS TO OPEN ? 
OPNTST ‘BR IF YES 

OPNFLG+2 ‘ANY TESTS TO OPEN ? 


SEQ 0144 


¢ 
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CZRMVAO RMOS/3/2 EXT 
INTEGER DivIDE ROUTINE SEG 0145 

1445 035210 001008 BNE OPNTST :BR IF YES 

Pr | 035212 000137 034360 JMP GT.PR2 :NO=-GO START TESTING 

ee OPEN THE SELECTED TEST FOR CHANGES 

1450 035216 10441 OPNTST: SAVREG ;SAVE RO - RS 

1451 035220 00502 LR (PC)+ START WITH TEST 0 

pe baesse 000000 OPN.CT: .WORD 0 ;COUNT STORED HERE 

$62? 035224 000411 ica OPN.2 SKIP THE INCREMENT 

1455 033¢¢8 005237 035222 OPN.1: INC OPN.CT ;MOVE TO THE NEXT TEST 

1458 035232 022737 000022 035222 CMP #22,0PN.CT ; TEST NUMBER TOO B1G? 

1459 035240 002003 BGE OPN.2 sNO=-OPEN THE NEXT TEST 

1460 035242 1044613 RESREG RESTORE RO - R 

+60) 035244 000137 634364 JMP GTTST1 7YES=-GO ASK FOR MORE TESTS 

eg 035250 013705 035222 OPN.2: MOV OPN.CT,RS ;SETUP TO USE THE 

1464 035254 aged ASL R5 ;TEST NUMBER AS AN INDEX 

1465 035256 013703 035222 MOV OPN.CT,R3 GET INDEX 

1466 035262 042703 000017 BIC #17,R3 ;CLEAR LOWER TEST BITS 

1467 035266 006203 ASR R3 ;SHIFT TEST NUMBER 

1468 035270 006203 ASR R3 

1469 035272 006203 ASR py 

1470 035274 036563 001526 001334 BIT BITS(RS) ,OPNFLG(R3) s;OPEN THIS TEST? 

1471 035302 001751 BEQ OPN.1 ;NO--MOVE TO NEXT TEST 

1472 035304 104401 035312 TYPE ,65$ zs; TYPE ASCIZ STRING 
035310 000404 a8 648 ::GET OVER THE ASCIZ 

3365$: .ASCIZ / TEST / 
035322 64$: 

1473 035322 013746 035222 MOV OPN.CT,-(SP) 7; SAVE OPN.CT FOR TYPEOUT 
035326 104403 TYPOS 3:60 TYPE--OCTAL ASCII 
035330 002 -BYTE 2 3; TYPE 2 DIGIT(S) 

035331 000 -BYTE 0O 7; SUPPRESS LEADING ZEROS 

1474 035332 104401 001231 TYPE , SCRLF sCR-LF 

1475 035336 016500 002362 MOV PRMPT(RS),RO sPICKUP PARAMETER POINTER 

1476 035342 011046 MOV (RO) ,-(SP) ;SAVE THE VARIABLE INDICATOR 

1477 035344 012702 002322 MOV #PRM,R2 sFIRST ADDRESS OF TABLE 

1478 035350 000405 BR 23 

1479 035352 006216 1$: ASR (SP) sCHECK FOR A VARIABLE 

1480 035354 103403 BCS 28 3GO0 MOVE THIS ONE 

1481 035356 001404 BEQ OPNPRM ; DONE 

1 035360 ooo Tee TST (R2)+ ;BUMP THE POINTER 

1483 035362 0007 aR 1$ 

1484 035364 012022 2s: MOV (RO)+,(R2)+ 7MOVE THIS VARIABLE INTO THE 

138 035366 000771 BR 1$ :COMMON AREA 

1288 035370 013716 002322 OPNPRM: MOV PRM, (SP) GET THE VARIABLE INDICATOR 

1488 Baeere 005004 CLR R4 ;ZERO THE INDEX 

1489 035376 cig 1$: ASR (SP) :CHECK FOR A VARIABLE 

1490 035400 10340 BCS 3$ 360 GET IT 

1491 035402 001772 BEQ OPNPRM OUT OF VARIABLES 

rhs 035404 O057e% 28: TST (RG)+ UPDATE THE INDEX 

149 Sees 94 3 BR 1$ 

14694 03541 5764 002432 3$: TST PRMLMT(R4) :1S THE MAX. MAGNITUDE NEG? 

1495 035414 + 98.34 ] OPNPAT SYES--THEN IT IS THE PATTERN 

<* 035416 104401 046657 TYPE »BLNKS2 sTYPE 2 SPACES 

1497 035422 016437 002464 035432 MOV PRAMSG(R4),4$  :TYF THE NAME OF THIS VARIABLE 
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CZRMVAO RMOS/3/2 EXT'D 
INTEGER DivVIDE ROUTINE SEQ 0146 
1498 0354 104401 TYPE 
1499 baer 000000 4$: -WORD 0 
1500 0354 104401 045700 TYPE -MSG.EQ TYPE ‘'s"’ 
1501 035440 ee B0g3e8 MOV RPT(R4),-(SP)  ;PUT RPT(R&) ON THE STACK 
035444 es 02 g08 JSR PC,$SB20 ;CHANGE TO DECIMAL ASCIZ 
Stat eg 004737 025510 JSR PC, SSUPRS s TYPE WITHOUT LEADING ZEROS 
1288 035454 104401 045725 TYPE » SLASH sTYPE ' s ° 
150 Tiare] 1046411 RDLIN 
1504 0354 012601 MOV (SP)+,R1 READ AN ASCIZ STRING 
1505 035464 004037 036340 JSR RO,CK.CHR ;CHECK ONE CHARACTER 
035470 035410 3$ ; ILLEGAL CHARACTER 
035472 035404 2$ ; CARRIAGE RETURN 
035474 035542 9S ee 
035476 035504 5$ on 
035500 035512 6$ tao 
035502 035540 8$ DIGIT 0-9 
1506 035504 105711 5$: TSTB (R1) :"'CR''? 
1507 035506 001340 BNE 3$ :NO=-STAY ON THIS VARIABLE 
1508 035510 000735 BR 23 ;YES--MOVE TO NEXT VARIABLE 
1509 035512 105711 6$: TSTB (R1) 31S THERE A "'CR'' AFTER THE PERIOD? 
1810 035514 001002 BNE 7$ 3NO 
1511 035516 000137 036132 JMP OPN.N2 ;YES--GO CLOSE ThIS TEST 
a 035522 122721 000056 7$: CMPB #'.,(R1)¢ ;DOUBLE PERIOD? 
1513 035526 001330 BNE 3$ sNO--GO ASK FOR THIS VARIABLE 
1514 035530 105711 TSTB (R1) sYES--1S A ‘'CR'’ AFTER THE DOUBLE PERIOD? 
1515 035532 001326 BNE 3$ ;NO=--ASK FOR THIS VARIABLE AGAIN 
a 035534 000137 036150 JMP OPN.X2 sYES=--CLOSE ALL TEST 
1518 035540 005301 8$: DEC R1 ;BACK THE POINTER UP BY ONE 
1519 035542 9$: 
035542 016402 002432 MOV PRMLMT(R4) ,R2 ;UPPER LIMIT OF INPUT 
035546 004037 036414 JSR RO,CK.DIG ;CHECK THE DIGIT(S) 
035552 035410 3$ sILLEGAL INPUT 
035554 035410 3 : INPUT TO LARGE 
J35556 035564 10$ s TERMINATED WITH A ‘',"' OR “'CR'’ 
035560 036126 OPN.N1 ; TERMINATED WITH A “’."’ 
035562 036144 OPN.X1 ; TERMINATED WITH A ‘'.."' 
1520 035564 010264 002324 10$: MOV R2,RPT(R4) 7SAVE THIS VARIABLE 
+34 035570 000705 BR 23 sMOVE TO NEXT VARIABLE 
1367 OPEN PATTERN FOR CHANGES 
1525 035572 104401 046657 OPNPAT: TYPE »BLNKS2 TYPE 2 SPACES 
1526 035576 104401 045674 TYPE »MSG.PAT sTYPE ‘'PAT’’ 
1527 035602 104401 045700 TYPE »MSG.EQ sTYPE ‘'="' 
1528 035606 016446 002324 MOV RPT(R4),-(SP)  ;;SAVE RPT(R4) FOR TYPEOUT 
035612 104402 TYPOC 3:60 TYPE--OCTAL ASCII(ALL DIGITS) 
1398 035614 104401 046660 TYPE »BLNKS1 ;TYPE ONE SPACE 
1530 035620 104411 RDLIN ;READ ASCIZ STRING 
1531 035622 012601 MOV (SP)+,R1 :PICKUP POINTER 
1532 035626 004037 036340 JSR RO, CK.CHk ;CHECK ONE CHARACTER 
0356 035572 OPNPAT ; ILLEGAL CHARACTER 
035632 035370 OPNPRM :CARRIAGE RETURN 
035634 os2068 3$ 3. . 
035636 0355 NP PRM ae 
035640 035644 ” 
035642 035664 <> :DIGIT 0-9 
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CZRMVAO RMOS/3/2 EXT 
INTEGER DivIDE ROUTINE SEQ 0147 
1533 035644 105711 1$: TSTB (R1) 7"'CR'' AFTER THE PERIOD? 
188 6 0 et] 001531 BEQ OPN.N2 :YES--GO CLOSE THIS TEST 
1535 035650 122721 000056 CMPB a’. (R14 ;NO--PERIOD? 
1536 035654 001346 BNE OPNPAT 3NO--LOOP 
1537 035656 105711 TSTB (R1) 7'CR'’ AFTER A DOUBLE PERIOD? 
Ft 035660 OOS z8 BEQ OPN.X2 7 YES--GO START TESTING 
1539 035662 00074 BR OPNPAT 3NO=-LOOP 
1540 035664 005301 2$: DEC R1 ;BACKUP THE ASCII POINTER 
yet OTReee o04037 036600 - SR s«RO, CK.NUM SCHECK THE NUMBER 
J »CK NU HECK TH 
035672 035572 OPNPAT ILLEGAL INPUT 
035674 035702 4$ : TERMINATED WITH A ''," "OR “'CR" 
035676 036126 OPN.N1 [TERMINATED WITH A ° 
035700 036144 OPN.X1 [TERMINATED WITH A ‘'.."" 
1542 035702 010264 002324 4$: MOV R2,RPTC(RG) [SAVE THE INPUT NUMBER 
1543 035706 006002 ROR Pa [OPEN PATTERN 0? 
1544 035710 103227 BCC OPNPRM ;NO=-START AT BEGINNING OF PARAMETER TABLE 
te 4 035712 104412 SAVREG ;SAVE RO - RS 
HF 4 OPEN WORDS IN PATTERN #0 FOR CHANGES 
1549 035714 005000 OPNWDS: CLR RO START WITH WORD 0 
1550 035716 012704 003560 MOV #PATO,RG 
1551 035722 1$: 
035722 104401 035730 TYPE ,65% 7; TYPE ASCIZ STRING 
035726 000403 BR 64% 3;GET OVER THE ASCI2Z 
2:658: .ASCIZ / WD/ 
037 36 64$: 
1552 0357 010046 MOV RO,-(SP) ;PUT RO ON THE STACK 
035740 004737 025260 JSR PC,$SB2D CHANGE TO DECIMAL ASCIZ 
035744 004737 025510 JSR PC, SSUPRS ;TYPE WITHOUT LEADING ZEROS 
1553 035750 104401 045700 TYPE »MSG.EQ TYP 
1554 035754 011446 MOV (R4) ,-(SP) +; SAVE (R4) FOR TYPEOUT 
035756 104402 TYPOC 3360 TYPE=-OCTAL ASCII(ALL DIGITS) 
1555 035760 104411 RDLIN READ ASCIZ STRING 
1556 035762 012601 MOV (SP)+,R1 [PICKUP THE POINTER 
1557 035764 004037 036340 JSR RO, CK. CHR CHECK ONE CHARACTER 
035770 035722 1$ 7ILLEGAL CHARACTER 
035772 036024 5$ 3 CARRIAGE RETURN 
035774 036006 3$ 
035776 036024 5$ pees 
036000 036040 6$ “a. 
036002 036004 23 DIGIT 0-9 
1558 036004 005301 2$: DEC R1 BACKUP THE ASCI1 POINTER 
1559 036006 3$: 
036006 004037 036600 JSR RO,CK.NUM :CHECK THE NUMBER 
036012 035722 1$ sILLEGAL_ INPUT RED a Peet 
036014 036022 4$ s TERMINATED WITH A ‘',"’ OR “'CR 
036016 036060 7$ ;TERMINATED WITH A ‘'.** 
036020 036072 S$ TERMINATED WITH A‘ 
1560 036022 pidels 4$: MOV R2,(R') SAVE THE INPUT 
1561 036024 005724 5$: TST (R4)+ [MOVE TO NEXT WORD 
9 prey, 005200 INC RO ¢ INCREMENT THE COUNT 
1563 0360 Beg! 00 000020 CMP #16.,R0 :COUNT TO LARGE? 
1564 036034 003552 BGT 1$ *NO=-BRANCH 
1565 036036 000726 BR OPNWDS > YES=-BRANCH 
1566 036040 105711 6$: TSTB (R1) :"'CR'’ AFTER THE PERIOD? 


CZRMVAO RMOS/3/2 EXT'D 

INTEGER DivIDE ROUTINE 
1567 036042 001407 
1368 O3e0e6 122721 
1569 036050 001324 
1570 036052 105711 
1571 036054 001407 
1578 036056 000721 
1575 036060 010284 
1574 036062 004737 
1575 036066 104413 
1576 036070 000420 
1927 Os6072 10224 
1578 036074 004737 
1579 036100 104413 
1580 036102 000422 
1581 
1582 
1583 
1584 036104 012701 
1585 036110 005200 
1586 036112 022700 
1587 036116 002602 
1588 036120 012126 
1589 036122 000772 
1590 036126 000207 
1592 036126 010264 
1593 036132 005726 
1594 036134 004737 
1595 036140 000137 
1597 036144 010264 
1598 036150 005726 
1599 036152 004737 
1600 036156 005725 
1601 036160 020527 
1602 036164 002403 
1603 036166 104413 
1604 036170 000137 
1605 036174 036503 
1606 036200 001364 
1607 036202 000765 
1608 
1609 
1610 
1611 0362046 104412 
1612 036206 012700 
1613 036212 016501 
1614 036216 012002 
1615 036220 012103 
1616 036222 012704 
1617 036286 030402 
1618 036230 001403 
1619 036232 030403 
1620 036234 001404 
1621 036236 Ollu1! 
1622 036240 030403 
1623 036242 001401 


DR TST 


000056 


036104 


036104 


003560 
000017 


002324 


036204 
035226 


002324 
036204 
000034 


034360 
001526 


002322 
002362 


000001 
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7$: 
8$: 


9$: 
10$: 


SEQ 0148 


YES==GO CLOSE THIS TEST 
:NO=-PERIOD? 

NO=-BRANCH ILLEGAL INPUT STRING 
:'CR' AFTER THE "'PERIOD-PERiOD'’? 
ZYES*=GO START TESTING 

:NO==LOOP 

SAVE THE INPUT 

CLOSE THE DATA PATTERN 

ZRESTORE RO = R5 

MOVE TO NEXT TEST 

:SAVE THE INPUT 

CLOSE THE DATA PATTERN 

ZRESTORE RO = RS 

:START TESTING 


CLOSE PATTERN #0 AND SAVE CHANGED WORDS 


CLSWDS: 
1$: 


3$: 


:FIRST ADDRESS OF DATA PATTERN 
;COUNT THE LAST WORD THAT WAS STORED 
END OF TABLE 

7 YES--EXIT 

; COPY 

; LOOP 

RETURN 


:SAVE THIS VARIABLE 
;CLEAN OFF THE STACK 
;CLOSE THIS TEST 

360 OPEN THE NEXT TEST 


;SAVE THIS VARIABLE 
;CLEAN OFF THE STACK 
;CLOSE THIS TEST 
;UPDATE THE INDEX 

. EX TO BIG? 


:G0 TO EXIT 

:1S THIS TEST OPEN FOR CHANGE? 
:YES--GO CLOSE IT 

:NO--MOVE TO NEXT TEST 


;CLOSE CURRENT TEST THAT WAS OPEN FOR CHANGES 


CLOSE: 


2s: 


BEQ 8$ 

CMPB ow", (R1)4 
BNE 1$ 

TSTB 3s (RV) 

BEQ 108 
BR 1$ 
MOV R2,(R4)4 
JSR PC.CLSWOS 
RESREG 
BR OPN.N2 
MOV R2,(R4)4 
JSR PC.CLSWDS 
RESREG 

R OPN. x2 
MOV #PATO,R1 
INC RO 

CMP #15.,RO 
BLT fa 
MOV (R1)+,(R4)+ 
BR 1$ 

RTS PC 
MOV R2,RPT(RG) 
TST (SP)+ 

JSR PC, CLOSE 
MP OPN. 1 
MOV R2,RPT(R4) 
1ST (SP) + 
JSR PC, CLOSE 
TST (R5)¢4 

CMP RS #162 
BLT 3$ 
RESREG 

JMP GT.PR2 
BIT BITS(RS) ,R3 
BNE 1$ 
BR 23 

SAVREG 
MOV #PRM,RO 
MOV PRMPT(RS) RI 
MOV (RO)+,R2 
MOV (R1)+_R3 
MOV #1,R4 
BIT R4,R2 
BEQ 2$ 
BIT R4,R3 
BEQ 

MOV (RO), (RI) 
BIT R4,RS 
BEQ 3$ 


:‘"FROM'’ INDICATOR 
:‘'TO'* INDICATOR 

TEST BIT START A ‘'RPT"’ 
PARAMETER TO BE MOVED? 
;NO--BRANCH 

;A PLACE TO PUT IT? 
;NO--BRANCH 

7YES--MOVE ‘’FROM’’ TO ‘'TO"' 
"'TO"' PARAMETER? 
;NO--BRANCH 


CZRMAVAO RMOS/3/2 Sonnin 4 DR TST 


INTEGER DiVIDE R 

1624 free 005721 

1625 tre 46 005720 

1626 0 $29 006304 

1627 036252 032704 002000 
1628 036256 001763 

1629 036260 104413 

1630 036262 000207 

1631 

1632 

1633 

1634 

1635 

1636 

1637 

1638 

1639 

1640 

1641 036264 121127 000060 
1642 036270 103407 

1643 036272 121127 000067 
1644 036276 101004 

1645 0363 111102 

1646 036302 0427 177770 
1647 036306 005720 

1648 036310 000200 

1649 

1650 

1651 

1652 

1653 

1654 

1655 

1656 

1657 

1658 

1659 036312 121127 000060 
1660 036316 103407 

1661 036320 121127 000071 
1662 036324 10.004 

1663 036326 111102 

1664 036330 042702 000060 
1665 036334 005720 

1666 036336 000200 

166” 

1668 

1669 

1670 

1671 

1672 

1673 

1674 

1675 

1676 

1677 

1678 

1679 

1680 
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TST (R1)+ :YES--UPDATE THE POINTER 
3$: TST (RO)*+ ; UPDATE FROM POINTER 
ASL RG :POSITION THE TEST BIT 
BIT #BITIO,R4 : 
BEQ 1$ ‘NOs<BRAN 
RESREG ;RESTORE RO - R5 
RTS PC ;RETURN 
THIS ROUTINE IS USED TO CHECK IF AN 
“7 ti CHARACTER IS A DIGIT BETWEEN 0 AND 7. 
3; CAL 
: MOV WADR,R1 sADDRESS OF aeaae CHARACTER 
: JSR RO,CK.OCT ;CHECK THE CHARACTER 
: RETURN1 :CHARACTER IS NOT ys 0-7 
: RETURN2 ;CHARACTER IS IN R2 A 
: :OCTAL DIGIT 
CK.OCT: CMPB (R1),#°0 LESS THAN ZERO? 
LO 1$ ;YES == BRANCH 
CMPB (R1) ,#'7 ; GREATER THAN SEVEN? 
BHI 1$ ;YES == BRANCH 
MOVB (R1),R2 :GET THE CHARACTER 
BIC #*C7,R2 STRIP AWAY THE ASCII 
TST (RO)+ ;ADJUST FOR RETURN 
1$ RTS RO RETURN 
. THIS ROUTINE IS USED TO CHECK AN ASCII CHARACTER 
AND, DETERMINE IF IT 1S A DIGIT BETWEEN 0 AND 9. 
: MOV #WADR,R1 ADDRESS OF ASCII CHARACTER 
: JSR RO,CK.DEC CHECK THE CHARACTER 
: RETURN1 ;NOT BETWEEN 0 AND 9 
; RETURN2 :BETWEEN Q AND 9 
: :R2 = DIGIT 
CK.DEC: CMPB (R1),#°O ;LESS THAN ZERO? 
BLO 1$ YES == BRANCH 
CMPB (R1),#°9 ;GREATER THAN NINE? 
BHI 1$ :YES == BRANCH 
MOVB (R1),R2 GET THE CHARACTER 
BIC #'0,R2 STRIP AWAY THe ASCII 
TST (RO)+ ADJUST FOR RETURN 
1$: RTS RO ; RETURN 
;THIS ROUTINE WILL CHECK AN ASCII CHARACTER TO 
274 ata WHAT IT IS. 
> CALL 
: MOV MADR RI sADDRESS OF ASCil CHARACTER 
: JSR RO,CK.CHR CHECK CHARACTER 
: RETURN ADR1 [UNKNOWN CHARACTER 
: RETURN ADR2 :CARRIAGE RETURN * (R1)=ADR+1 
: RETURN ADR3 ;SLASH * (R1)=ADR+1 
: RETURN ADR4 ;COMMA * (R1)=ADR+1 
; RETURN ADRS ;PERIOD * (R1)=ADR+1 
: RETURN ADR6 :DIGIT BETWEEN 0 AND 9. 
: :R2 = DIGIT ® (R1)=ADR¢1 


SEQ 0149 


CZRAVAO R 
INTEGER Di 
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DE 


2 


Co 

oo 
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4333333 
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Soooo0e VF NONE NOS MY 


/ 


mr 


SSSSSSSSSNSnSnSo Lm 


oo 
o— 


0200 


010446 


ofrorm oo 
Wwe —$ POS wOooo0os 
SOOWE & FSF NWO 


DR TST 


000057 
000054 
000056 
036312 


036340 


036340 


CK.CHR: 
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TSTB 
BEQ 


m=z 
———— ss 
en 


-52 
(R1) 7""CARRIAGE RETURN'’? 
4$ ;YES == BRANCH 
(R1),#'/ :""SLASH''? 
3$ ;YES -- BRANCH 
(R1),#', 7""CO ” 
2$ ;YES == BRANCH 
(R1),#'. :"'PERIOD''? 
1$ 3;YES -- BRANCH 
RO,CK.DEC :"DIGIT''? 
5$ 3NO == BRANCH 
(RO)+ :DIGIT BETWEEN 0-9 
(RO)+ ;PERIOD 
(RO)+ 3;CO 
(RO)+ 3; SLASH 
(RO)+ ; CARRIAGE RETURN 
R1 ;MOVE POINTER TO NEXT CHARACTER 
(RO),RO sUNKNOWN CHARACTER 
RO sRETURN 


THIS ROUTINE CHECKS AN ASCII STRING FOR LEGAL 


CK.DIG: 


— AND FORMS A DECIMAL VALUE BINARY NUMBER IN R2. 


#ADR,R1 ;ADDRESS OF ASCIZ STRING 

#NUM ,R2 ;MAX. MAGNITUDE OF INPUT NUMBER 
RO,CK.D1G :CHECK DIGITS 

ADRI TILLEGAL CHARACTER == R2=? 
ADR2 INPUT NUMBER TO LARGE == R2=? 
ADRS :'COMMA'' == R2_= NUMBER 

ADR4 :'PERIOD'' == R2 = NUMBER 

ADRS ;PERIOD-PERIOD"' == R2 = NUMBER 
R4,=(SP) SAVE R4 

R3,-(SP) SAVE R3 

R2,-(SP) ;SAVE THE MAX. SIZE ON THE STACK 
Re START WITH 0 


R4 
RO,CK.CHR CHECK ONE CHARACTER 
; ILLEGAL CHARACTER 


CARRIAGE RETURN 


+ ee 0-9 
sSAVE #2 
34 

38 

(#8) 4(#2)=010, 

;UPDATE THE INPUT NUMBER 
: CHECK ONE CHARACTER 
SILLEGAL CHARACTER 
:CARRIAGE RETURN 


R3 
R3,-(SP) 
R3 

R3 
(SP)+,R3 
R2,R3 
RO,CK.CHR 


“DIGIT 0-9 


SEQ 0150 


1 


WWhnNnn—— 


eeeeeeeseesesesss 22 
FRSSENSORNORNOSR Mu 


SOOCOCOCOCOCOCOOOCOCOCOCOOCOOCOCOCOOCOCOoOSCO Fz 


1731 

1732 

1733 

1734 

1735 

1736 552 

1737 036554 

1738 036556 

1739 036560 

1740 036562 

1741 036564 

1742 036566 

1743 036570 

1744 036572 

1745 036574 

1746 036576 

1747 

1748 

1749 

1750 

1751 

1752 

1753 

1754 

1755 

1756 

1757 

1758 036600 

1759 036602 

1760 036604 

1761 036610 

1762 036612 

1763 036614 

1764 036616 

1765 036620 

1766 036622 

1767 036624 

1768 peogs 

1769 0366 

1770 036632 

1771 036636 

1772 036640 

1773 036642 

1774 036644 

1775 036646 
036652 


000200 


DR TST 


036340 


177776 000054 


036264 


036264 


036340 


23: 


3$: 
4$: 


:THIS ROUTINE CHECKS AN ASCIZ STRING FOR LEGAL CHARACTERS 
AND FORMS AN OCTAL NUMBER IN R2 


3 CALL: 


23: 


DEC 


(R4)+ 
RO,CK.CHR 


(R4)+ 
(R1) 
7$ 


9$ 
-2(R1),#", 
9$ 


R3, (SP) 
8$ 


#WADR,R1 
RO,CK.NUM 
ADR1 


+ ite 
RO,CK.OCT 


B 
RO,CK.CHR 


1 12 
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a” i 0 e 
‘COMMA’ 
;CHECK ONE C 


ILLEGAL CHA 
; CARRIAGE RE 


sie 


DIG!7 0-9 
i PERIOD- -PER 


S vES*-BRANCH 


WAS CHARACTER BEFORE THE DIGIT A COMMA? 


sNO--EXIT 
; INPUT TO LA 


Coen CHARACTER POINTEF 


OR "CR" 


HARACTER 
RACTER 
TURN 


100°" 


RGE? 


YES == BRANCH 


;ADJUST RETU 


;NUMBER TO 


sRESTORE 


RG 
:GET RETURN 
TURN 


;ADDRESS OF 


:GO FORM THE 


:LLEGAL, re Si IN i ali STRING 


COMMA’ 
"PERI 10D''=-R 


;"'PERIOD-PERIOD' et NUMBER 


SAVE R3 
;START NUMBE 


;OCTAL DIGIT? 


:NO--BRANCH 
:MOVE TO NEX 


;DON'T LET 1 


RN ADDRESS 


R2 
sCLEAN MAX. SIZE OFF OF STACK 
TORE R3 


ADDRESS 


ASCIZ STRING 
NUMBER 


CR’ — NUMB 
2=NU 


R AT ZERO 
? 


T CHARACTER 


FOR THE OCTAL NUMBER IN R35 


T GET TO BIG 


31S THIS AN OCTAL DIGIT? 


:NO=-F IND OU 


1S 
7 YES--MAKE IT PART OF THE NUMBER 


;SAVE THE OC 
:START WITH 


> CHECK ONE C 
sILLEGAL CHA 


T WHAT IT 


TAL NUMBER 
ZERO INDEX 
HARACTER 
RACTER 


SEQ 0151 


J l2 
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036654 936708 5$ ; CARRIAGE RETURN 
036656 03671 6$ ie 
036660 036702 5$ oe 
036662 930666 3$ as 
036664 036 A¢ 6$ sDIGIT 0-9 
1776 036666 00572 3$: TST (R3)¢ PERIOD’ 
1777 036670 121127 000056 CMPB (R1),#". 7" PERIOD-PERIOD''? 
1778 036674 001002 BNE 5$ 3NO--BRANCH 
1779 036676 99960) INC R1 7; YES--ADVANCE THE POINTER 
1780 036700 005723 4$: TST (R3)¢ 3" 'PERIOD=-PERIOD'’ 
1781 036702 005723 5$: TST (R3)¢+ :''COMMA'’ 
1782 036704 105711 TSTB (R1) 7"'CR''? 
1783 036706 001001 BNE 6$ ;NO--BRANCH 
1784 036710 060300 ADD R3,RO sYES=-=SAVE THE OCTAL NUMBER 
1785 036712 012603 6$: MOV (SP)+,R3 RESTORE R3 
1786 036714 011000 MOV (RO) ,RO PICKUP EXIT ADDRESS 
fa 036716 000200 RTS RO sRETURN 
1795 


CZRMVAO RMOS/3/2 EXT'D 
SINGLE/DUAL PORT RH/RM DRIVER (REV 6.2) 1980 


PNOPIPINNNY Ses 
VWEFWN 0 OOO UFWN —ODOONOUS WH 


mr 
NO 


28 
29 036730 
32 036731 
32 
036737 


39 036740 


036747 


K 12 
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-SBTTL SINGLE/DUAL PORT RH/RM DRIVER (REV 6.2) 1980 
sNEW DRIVE TYPE ID FOR RMO2 weeeeenene 


310-AUG<77 eeeeeeerere 
7 10-MAR-78 THE SC, SCS CHANGES 
sNEW DRIVE TYPE ID FOR RMOS seeeeeenes 


80 eeeereneeee 


COPYRIGHT (C) 1977 

sDIGITAL ey CORP. 
;MAYNARD, MA 01754 

AUTHOR(S): JIM LACEY/CHUCK HESS/ 


; SERRA AERAAREeAee eee eee eeKeeKRKAKeeeKeKeeteeeAeAteetereeeee 


; STORAGE RMERRS yh RMER2, AND RMMR2 ON AN ERROR ‘'2"' 


= RMDS 
:RMERRS+2 = RMER1 
sRMERRS+4 = RMER2 
:RMERRS+6 = RMMR2 


036720 000000 000000 000000 RMERRS: .wORD 0,0,0,0 


TABLE OF DRIVE ACTIVE INDICATORS (DRVACT=8 BYTES? 
sDRVACT=0 IF DRIVE IS IDLE 
DRVACT>O IF DRIVE IS ACTIVE WITH A COMMAND 
;DRVACT<O IF DRIVE IS ACTIVE WITH AN ERROR RECOVERY OPERATION 


DRVACT: .BYTE 0 ;DRIVE 0 
-BYTE 0 sDRIVE 1 
-BYTE 0 :DRIVE 2 
BYTE 0 sDRIVE 3 
BYTE 0 :DRIVE 4 
-BYTE 0 sDRIVE 5 
BYTE 0 :DRIVE 6 
BYTE 0 sDRIVE 7 
TABLE OF DRIVE STATUS INDICATORS (DRVSTA=8 BYTES) 
sDRVSTA=0 IF DRIVE IS OFFLINE OR NONEXSITENT 
SDRVSTADO IF DRIVE IS ONLI 
:DRVSTA<O IF DRIVE IS UNSAFE 
DRVSTA: .BYTE 0 sDRIVE 0 
BYTE 0 :DRIVE 1 
-BYTE 0 sDRIVE 2 
BYTE 0 :DRIVE 3 
-BYTE 0 sDRIVE 4 
-BYTE 0 sDRIVE 5 
-BYTE 0 sDRIVE 6 
-BYTE 0 sDRIVE 7 
;TABLE OF DRIVE TYPES (DRVTYP=8 BYTES) 
sDRVTYP=0 IF DRIVE 1S NONEXISTENT (DRVSTA=0, ALSO) 
sDRVTYP=7 IF DRIVE IS RMOS eeeeee 
sDRVTYP=5 IF DRIVE 1S RMO2 seeeee 
sDRVTYP=4 IF DRIVE IS RMO3 
DRVTYP=-1 If NOT RMO5/3/2 


SEQ 0153 


92 037004 
93 
Ge 


SOFTWARE TIMER ROUTINE ACTIVE FLAG (ACTSTR=1 BYTE) 


L 12 
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SINGLE/DUAL PORT RH/RM DRIVER (REV 6.2) 1980 SEQ 0154 
50 
51 036750 000 DRVTYP: .BYTE 0 :DRIVE 0 
54 036751 000 -BYTE 0 :DRIVE 1 
fot ey 000 -BYTE 0 ;DRIVE 2 
03675 000 -BYTE 0 sDRIVE 3 
036754 000 BYTE 0 sDRIVE 4 
036755 000 -BYTE 0 sDRIVE 5 
036756 000 BYTE 0 sDRIVE 6 
55 036757 000 -BYTE 0 sDRIVE 7 
56 ;TABLE OF DUAL PORT INITIALIZATION INDICATORS 
57 sDPINT=O IF INITIALIZATION IS NOT ACTIVE ON THE DRIVE 
8 :DPINT<O IF INITIALIZATION IS IN PROGRESS 
60 036760 000 DPINT: .BYTE 0 sDRIVE 0 
63 036761 000 BYTE 0 :DRIVE 1 
036762 000 -BYTE 0 sDRIVE 2 
036765 000 BYTE 0 sDRIVE 3 
036764 000 -BYTE 0 sDRIVE 4 
036765 000 -BYTE 0 sDRIVE 5 
036766 000 -BYTE 0 sDRIVE 6 
“ 036767 000 BYTE 0 sDRIVE 7 
65 ;TABLE OF PENDING DUAL PORT REQUESTS 
66 sDPRQS=0 IF THAT A DUAL PORT REQUEST IS NOT PENDING FOR THAT DRIVE 
+4 ‘ DPROS<O IF THAT A DUAL PORT REQUEST IS PENDING FOR THAT DRIVE 
69 036770 000 DPRQS: .BYTE 0 sDRIVE 0 
72 036771 000 -OYTE 0 :DRIVE 1 
036772 000 BYTE 0 sDRIVE 2 
03677 000 -BYTE 0 :DRIVE 3 
03677 000 BYTE 9 sDRIVE 4 
036775 000 BYTE 0 sDRIVE 5 
036776 000 BYTE 0 sDRIVE 6 
73 036777 000 BYTE 0 sDRIVE 7 
74 ; TRANSFER — FLAG (TRNSWT=1 WORD) 
75 1S A_ONE WORD QUEUE. IT WILL CONTAIN THE ADDRESS OF 
8 DPB OF THE 1/0 OPERATION. 
4 937000 000000 TRNSWT: .WORD 0 
80 SEARCH WAIT KEYS (SRCHWT=1 WORD) 
8° sTHIS IS A ONE WORD QUEUE THAT WILL CONTAIN A KEY FOR EACH OF 
82 THE DRIVES THAT ARE PERFORMING A SEARCH COMMAND FOR THE 1/0 
83 REQUEST THAT IS AT THE TOP OF THEIR REQUEST QUEUE. 
rr EACH DRIVE IS ASSIGNED ONE BIT, STARTING AT BITOO FOR DRIVE 0. 
ry 037002 000000 SRCHWT: .WORD 0 
88 ;RM DRIVER ACTIVE FLAG (CACTORV=1 BYTE) 
89 sACTORV=0 IF DRIVER IS INACTIVE 
oy SACTDRV>O IF DRIVER IS ACTIVE 
v00 ACTORV: .BYTE 0 


M12 
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95 
96 
97 
98 037005 
99 
100 
101 
102 
103 
104 
105 037006 
108 937007 
037010 
037011 
037012 
0370135 
037014 
037015 
109 
110 
111 
112 
113 037016 
116 037017 
037020 
037021 
037022 
037023 
037024 
037025 
117 
118 
119 
120 
121 
122 
123 
124 037026 
125 
126 
127 
128 
129 
130 
131 
132 037030 
133 
134 
135 
136 
137 037032 
140 037034 
037036 
037040 
037042 
037044 
037046 


000 


000000 


177777 


sACTSTR =0 IF SOFTWARE TIMER ROUTINE IS INACTIVE 
sACTSTR>O IF SOFTWARE TIMER ROUTINE IS ACTIVE 

ACTSTR: .BYTE 0 
sUNLOAD FLAG (ULDFLG=8 BYTES) 

sULDFLG=0 IF NO UNLOAD COMMAND 

sULDFLG>O IF UNLOAD COMMAND IN PROGRESS 

sULDFLG<O IF UNLOAD COMMAND IN WAIT QUEUE 
ULDFLG: .BYTE 0 DRIVE 0 

-BYTE 0 sDRIVE 1 

BYTE 0 sDRIVE 2 

-BYTE 0 sDRIVE 3 

BYTE 0 sDRIVE 4 

-BYTE 0 :DRIVE 5 

-BYTE 0 sDRIVE 6 

BYTE 0 sDRIVE 7 


;LOOK AHEAD COUNT (LACNT=8 BYTES 


sLACNT WILL INDICATE THE ’ NUMBER OF LOOK AHEADS PERFORMED 


LACNT: .BYTE 0 sDRIVE 0 
BYTE 0 :DRIVE 1 
BYTE 0 sDRIVE 2 
BYTE 0 sDRIVE 3 
BYTE 0 sDRIVE 4 
-BYTE 0 sDRIVE 5 
BYTE 0 :DRIVE 6 
BYTE 0 :DRIVE 7 


7 SAVE wap FLAG (SAVEFG =1 WORD) 
VEFG <O IF SAVE THE RH/RM gt eed WHEN THE 
‘OPERATION 1S COMPLETED AS PER (DPB+14 
sSAVEFG=0 IF SAVE THE RH/RM REGISTERS, ‘is PER 
;(DPB+14), AFTER AN ERROR. 


SAVEFG: .WORD 0 


; SEEK on saFten 2 1 WORD) 
FG=0_ IF WHEN THE DISK ADDRESS ISN’ iM aR. THE WINDOW 
FOR A DATA TRANSFER START A SEARCH COMMAND 
7SEEKFG<O IF DATA TRANSFER WILL DO IMPLIED SEEKS, 
;DISREGARD (HE WINDOW 


SEEKFG: .WORD -1 


sata” wake (TIMER=8 WORDS) 
THIS TABLE CONTAINS THE TIME ALLOWED FOR AN OPERATION 


TIMER: .WORD -1 :DRIVE 0 
-WORD =1 :DRIVE 1 
-WORD =1 sDRIVE 2 
«WORD =1 :DRIVE 3 
-WORD = :DRIVE 4 i 
oW -1 sDRIVE 5 
. -1 :DRIVE 6 


SEQ 0155 
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SINGLE/DUAL PORT RH/RM DRIVER (REV 6.2) 1980 SEQ 0156 
037050 177777 -WORD =1 ;DRIVE 7 


:DATA TRANSFER UNDERWAY INDICATOR (DTUW=1 7 
;DTUW<O IF NO DATA TRANSFER UNDERW 
tDTUWSN (WHERE N=0 TO 7) IMPLIES “OATA TRANSFER UNDERWAY ON DRIVE N 


037052 177777 DTUW: .WORD <1 


sATTENTION BITS TABLE (ATABIT=8 BYTES) 
THIS TABLE CONTAINS THE CORRESPONDING BIT TO EACH DRIVES 
‘ATTENTION BIT 


037054 001 ATABIT: .BYTE 1 :DRIVE 0 
037055 002 BYTE @ sORIVE 1 
037056 004 -BYTE 4 sORIVE 2 
037057 010 ~BYTE 10 sORIVE 3 
037060 020 BYTE 20 sDRIVE 4 
037061 040 -BYTE 40 sORIVE 5 
037062 100 -BYTE 100 sDRIVE 6 
037063 200 -BYTE 200 sDRIVE 7 


:FSRM TO RH11/RH70 ‘'MASSBUS CONTROL BUS PARITY ERRORS'’ (MCPE) ALLOWED BEFORE 
;CALLING IT FATAL (MCPEMX=1 WORD) 


037064 000003 MCPEMX: .WORD 3 


STORAGE FOR RMADR (THE FIRST ADDRESS (776700) OF THE RH/RM), 
sRMVEC (THE VECTOR ADDRESS (254)), AND RMVEC+2 (THE BR LEVEL (5)). 


037066 176700 RMADR: .WORD 176700 - 
037070 000254 000240 RMVEC: .WORD 254,5*32. 

MAXIMUM NUMBER OF LOOK AHKEADS ALLOWED IS 4 (MXLACT=1 WORD) 
037074 000004 MXLACT: .WORD 4 

3MAXIMUM DELTA DELAY IS 8 SECTORS (MXDLTA=1 WORD) 
037076 001000 MXDLTA: .WORD 8.#64. 

s;MINIMUM DELTA DELAY IS 2 SECTORS (MNDLTA=1 WORD) 
037100 000200 MNDLTA: .WORD 264. 

s;MAXIMUM SEARCH FOR 1/0 WINDOW IS 5 SECTORS (MXWNDW=1 WORD) 
037102 000005 MXWNDW: .WORD 5 


sDEFINITIONS OF THE RH/RM ADDRESS INDEXES 


MEUM 9S OONOAUVE WN $0 OOO UE WW 0 ODN UE WWN SO OONOA UF WR 


i ee ce ee ed ed ed td ot 
Deh Pepe $4 pid te} tit eet a Pe PPS a BS he A heh ah Abe eh On Ae Me ae ae 


000000 RMCS1=0 sCONTROL AND STATUS REGISTER #1 (DRIVE REG. 00) 
7 000002 RMWC=2 ;WORD COUNT REGISTER (NOT A DRIVE REG) 
8 000004 MBA= ;UNIBUS ADDRESS REGISTER (NOT A DRIVE REG 
9 000006 MDA=6 :DESIRED SECTOR/TRACK ADDRESS REGISTER (DRIVE REG. 05) 
0 000010 RMCS2=10 ;CONTROL AND STATUS REGISTER #2 (NOT A DRIVE REG) 
1 000012 DS=12 sORIVE STATUS REGISTER (DRIVE REG 01) 
2 000014 RMER1=14 sERROR REGISTER #1 (DR ) 
3 000016 RMAS=16 ;ATTENTION SUMMARY PSEUDO REGISTER sOnive REG. 04) 
& 000u20 RMLA=20 ;LOOK AHEAD REGISTER (DRIVE REG. 07) 
5 000022 RMDB=22 ;DATA BUFFER REGISTER (NOT A DRIVE REG.) 
6 000024 RMMR1=24 ;MAINTAINABILITY REGISTER (DRIVE REG. 03) 


ee a 1 
_ CZRAVAO RMOS/3/2 EXT'D OR TST MACRO Oe. oof 11-APR-80 15:01:20 PAGE 13-4 


| SINGLE/DUAL PORT RH/RM DRIVER (REV 6.2) 1 SEQ 0157 
197 000026 RMDT=26 ;DRIVE TYPE REGISTER (DRIVE REG. 06) 
198 000030 RMSN=30 “SERIAL NUMBER REGISTER (DRIVE REG. 10) 
199 000032 RMOF =32 [OFFSET REGISTER (DRIVE REG. 11) 

200 34 RMDC=34 [DESIRED CYLINDER ADDRESS REGISTER (DRIVE REG. 12) 
201 000036 RMHR=36 [DUMMY ADDRESS REGISTER (DRIVE REG. 13) 
202 000040 RMMR2=40 sMAINTENANCE REGISTER #2 
203 000042 RMER2=42 “ERROR REGISTER #2 (DRIVE REG. 15) 
204 000044 RMEC1=44 SECC POSITION REGISTER (DRIVE REG. 16) 
205 000046 RMEC2=46 SECC PATTERN REGISTER (DRIVE REG. 17) 
207 .SBTTL RH/RM DRIVER INITIALIZATION CODE 
209 sTHIS ROUTINE WILL DETERMINE WHICH RM DRIVES ARE 
210 TAVAILABLE FOR TESTING AND SET THE DRVSTA INDICATOR 
211 [TO THE PROPER STATE FOR EACH DRIVE. 
212 [NOTE: THIS ROUTINE CALLS DRVINT 
214 CALL 
215 : 
216 : JSR PC .RMINIT 
217 : RETURN 
219 ‘NOTE: THE "P' OR "L' CLOCK MUST BE STARTED 
221 037104 104412 RMINIT: SAVREG :SAVE RO = RS 
222 037106 013746 177776 MOV PS,-(SP) [SAVE THE PRESENT PROCESSOR STATUS 
223 037112 012737 000240 177776 MOV #<§232.>,PS ‘CHANGE THE PRIORITY TO 5 
32h 037120 004737 044772 JSR PC, CLRQUE :CLEAR ALL REQUEST QUEUES 
25 037124 012701 036720 MOV #RMERRS RI [FIRST ADDRESS TO BE CLEARED 
226 037130 012702 037030 MOV #SEEKFG.R2 [LAST ADDRESS TO BE CLEARED 
227 037134 005021 1$ CLR (R1)+ CLEAR 
228 037136 020102 CMP R1,R2 : ARE WE DONE? 
229 037140 103775 BLO 1$ ‘BR IF NO 
230 037142 012702 037052 MOV #DTUW,R2 [LAST ADDRESS 
231 037146 012721 177777 2$: MOV #-1,(R1)4 : INITIALIZE 
232 037152 020102 CMP R1,R2 ‘DON c? 
233 037154 101774 BLOS 2 SLOOP IF 
234 037156 005037 036740 CLR DRVSTA ?SET ALL DRIVES TO OFFLINE 
235 037162 005037 036742 CLR DRVSTA+2 
236 037166 005037 036744 CLR DRVSTA+4 
237 037172 005037 036746 CLR DRVSTA+6 
238 037176 013703 037070 MOV RMVEC,R3 :SETUP THE RH/RM VECTOR 
239 037202 012723 041740 MOV #ISR,(R3)+ 
240 037206 013713 037072 MOV RMVEC+2,(R3) 
241 037212 013704 037066 MOV RMADR,R4 sFIRST ADDRESS OF RH/RM 
242 037216 012764 900040 000010 MOV #CLR,RMCS2(R4) :MASSBUS INIT 
243 037224 005001 CLR ‘START WITH DRIVE 0 
266 037286 004037 037316 3$: JSR RO,DRVINT SINIT THE DRIVE 
245 037232 000401 BR 4$ :"DVA’ NOT set OR PARITY ERROR 
246 037234 000402 BR 5$ ‘NORMAL RETU 
247 037236 105061 036740 4$: CLRB = DRVSTACR1) >SET DRIVE UT ATUS TO OFFLINE 
268 037242 005201 5$: INC R1 :GO TO NEXT DRIVE 
249 037244 042701 177770 BIC #°C7,R1 [MASK OUT UNUSED BITS 
250 037250 001366 BNE 3$ *BR IF MORE DRIVES TO GO 
251 937252 012701 000007 MOV #7,R1 :START WITH DRIVE 7 
35 037256 005037 177776 CLR PS [CLEAR THE PROCESSOR STATUS 
253 037262 105761 036760 6$: TSTB. ss DPANT(R1) ‘WAITING FOR DRIVE TO SWITCH PORTS ? 


CZRMVAO RMOS/3/2 EXT'D 
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254 037 $6 

255 tt 0 

256 037274 

257 037300 

258 037302 

259 037304 

260 037306 

261 037312 

262 037314 

265 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 037316 

279 037320 

<0 raee 

$82 37384 

283 037340 

284 037346 

285 037354 

286 037356 

287 037362 

288 

289 037364 
7370 
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Seceuracs 


* 
of 
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& 


Sas 
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4 
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DR TST 


044426 
036760 


177776 


036740 


1 
010000 
044426 
036740 
004000 
043736 


000004 
020024 


024024 


000005 
020025 


024025 


000007 
020027 


024027 
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BEQ BS :BR NOT WAITING 
JSR PC, SET. IE iSET INTERR 
7$: = TSTB. DP ANTCRI) i DRIVE SWITCHED PORTS 2 
BNE 0s 7$ F NOT 
8S: DEC RI 60.10 THE NEXT DRIVE 
BPL tS CHECK NEXT DRIVE 
MOV (SP) +, PS ZRESTORE THE PROCESSOR STATUS 
RESREG SRESTORE RO - R5 
RTS PC :BYE-BYE 
sDRIVE INITILIZATION ROUTINE 
;THIS ROUTINE DETERMINES IF A DRIVE EXIST AND IF IT Is 
:AN RMOS/3/2. JF, IT 1S, 0A “READIN PRESET" 1S ISSUED AND FMT16 
71S SET TOA "1". THEN “no, DPR, DRY, AND VV ARE CHECKED TO 
TINSURE THEY. ARE" ALL * 


ON 
:DRVSTA IS SET TO THE PROPER COND 


1", AND DEPENDING ON THEIR STATE, 


ITION. 
CALL 
: MOV #DRVNUM,R1 DRIVE NUMBER TO R 
; MOV RMADR RG “ UNIBUS ADDRESS OF ‘en (RMCS1) 
; JSR RO,DRVINT [CALLED BY A JSR 
; RETURN1 “ERROR OCCURRED (PARITY) 
: RE TURN2 [NORMAL RETURN 
DRVINT: MOV RS,-(SP) SSAVE RS 
DULP:  CLRB  DRVSTA(R1) ‘START DRIVE STATUS AS OFFLINE 
CLRB DRVTYPCRI) [CLEAR THE DRIVE TYPE INDICATOR 
CLRB R1) [CLEAR THE UNLOAD FLAG 
MOV Ry ORCS oC RG) “SELECT A DRIVE 
000000 MOVB #111,RMCS1(R4) :DO A DRIVE CLEAR COMMAND (& SEIZE DRIVE) 
000010 BIT MBITE? RACSZ(RA) a SNONEXISTENT DRIVE? 
JSR PC,SET.IE :G0 SET IE’ WITHOUT A "'TRE' 
BR 6$ TLEAVE Ti!l$ ROUTINE 
1$: CLRB = DRVSTACR1) :SET DRIVE STATUS TO OFFLINE 
000000 BIT #81111, RMCS1(R4) sSEE IF DRIVE AVAILABLE 
BEQ ULP F DRIVE NOT AVAILABLE 
sR ROS RD.RM READ THE DRIVE TYPE REG. 
8$ ZERROR RETURN ADDRESS 
MOV (SP)+,R5 [PUT DRIVE TYPE IN R5 
036750 MOVB #/ “RVTYPCRI)  :SET RMO3 INDICATOR 
CMP t 26,R5 [SINGLE PORT RMO3 ? 
BEQ 2. ‘BR IF YES 
CMP 6246024,R5 :DUAL PORT RMO3 ? 
BEQ $ <BR IF YES 
036750 MOVB #5,DRVTYP(R1)  :SET RMOD INDICATOR 
CMP #26025,R5 ‘SINGLE PORT RMO2 ? 
BEQ 2$ :BR IF SO 
CAP #24025,R5 :DUAL PORT RMO2 ? 
036750 MOVB soa? paytyB<Rt) [SET RMOS INDICATOR 
CMP #2602 [SINGLE PORT RMOS ? 
BEQ 2 ‘BR IF YES 
CMP #24027,R5 [DUAL PORT RMOS ? 
BEQ 2$ “BR IF YES 


SEQ 0158 
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CZRMVAO RMOS/3/2 EXT'D 
RH/RM DRIVER INITIALIZATION CODE SEQ 0159 
311 037500 112761 177777 036750 MOvVB #-1,DRVTYP(R1) ;SET INDICATOR TO ‘OTHER’ 
318 037506 000446 BR 6$ sExIT 
14 037510 012746 000121 28: MOV #121,-(SP) ;D0 A “'READ-IN PRESET’’ 
315 037514 004037 044116 JSR RO,WRT.RM 
316 037520 000000 RMCS1 
a4 037522 037650 
18 037524 pie ree 010000 MOV #B1T12,-(SP) SET FMT16=1 
319 0375 004037 044116 JSR RO,WRT.RM 
320 037534 000032 RMOF 
321 037536 037650 as 
322 037540 004037 043736 JSR RO,RD.RM READ RMDS 
323 037544 000012 RMDS 
324 037546 037650 BS 
325 037550 012605 MOV (SP>4+,R5 AND SAVE IT IN RS 
326 037552 100015 BPL 4$ :BR IF ATA=0 
327 037554 116164 037054 000016 MOVB ATABIT(R1) ,RMAS(RG) CLEAR ATTENTION BIT 
328 037562 004037 043736 JSR RO,RD.RM FIND OUT WHY ATA=1 
329 037566 000014 RMER1 
330 037570 03/050 $ 
331 037572 006126 ROL (SP)¢ 31S 17 UNSAFE? 
332 037574 100004 BPL 4% BR IF NOT 
333 037576 112761 177777 036740 MOVB #-1,DRVSTA(R1) ;SET UNSAFE INDICATOR 
ee 037604 000407 He 6$ sEXIT 
336 037606 005105 4$: COM R5 sCHECK MOL, DPR, DRY, AND vv 
337 037610 042705 167077 BIC #*C<B1112'B1108'BIT07!BIT06>,R5 
338 Be7016 001003 BNE 6 ;BR IF MOL, DPR, DRY, OR vv IS CLEAR 
339 037616 112761 000001 036740 MOVB #1, DRVSTACR1)  ;SET DRIVE STATUS TO ONLINE 
340 037624 005720 6$: TST (RO) + ;STEP OVER THE ERROR RETURN 
341 037626 000410 bR 8s EXIT 
342 037630 006301 7$: ASL R1 ;CHANGE INDEX TO ADDRESS WORDS 
343 037632 012761 060000 037032 MOV #60000, TIMER(R1) sSTART 2 SEC TIMER 
344 037640 006201 ASR R1 RESTORE R1 
345 037642 112761 177777 036760 MOVB @-1,DPINT(R1)  ;SET PCRAT INITIALIZE INIDICATOR 
346 037650 012605 8$: MOV (SP)+,R5 RESTORE RS 
a4 037652 000200 RTS 0 sEXIT 
$5 REQUEST PRE-PROCESSOR-HANDLES SUBSYSTEM REQUEST 
+4 CALL 
353 ; JSR RO,RMOS ;CALL THE RMOS DRIVER 
354, : PNTADR ADDRESS OF POINTER OF DRIVES PARAMETER BLOCK 
355 : RETURN1 RETURN HERE IF QUEUE IS FULL 
356 : RETURN2 RETURN HERE IF REQUEST IS IN QUEUE OR THERE 
Ha 315 AN ERROR CONDITION 
359 037654 013746 177776 RMOS: MOV PS,-(SP) SAVE THE CALLING STATUS 
360 037660 013737 037072 177776 MOV RMVEC+2,PS DON'T ALLOW ANY RM INTERRUPTS 
361 037 112737 000001 037004 MOVB #1, ACTORV SET ‘ACTIVE DRIVER’ FLAG 
308 037674 104412 SAVREG s SAVE ~ 
037676 011002 MOV (RO) ,R2 sPICKUP THE DRIVE PARAMETER BLOCK POINTER 
364 037700 005062 000016 CLR 16(R2) [CLEAR THE STATUS/ERROR INDICATOR 
5 637704 111201 MOVB (R2),R1 PICKUP THE DRIVE NUMBER 
366 037706 013704 037066 MOV RMADR RS ;UNIBUS ADDRESS OF RMCS1 
367 037712 105761 636740 TSTB DRVSTA(R1) sCHECK DRIVES STATUS 
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RH/RM DRIVER INITIALIZATION CODE SEQ 0160 
768 037716 003014 BGT 1$ ;BR IF ONLINE 
9 037720 see) 037006 TSTB ULDFLG(R1) UNLOAD COMMAND IN QUEUE? 
379 037724 0010 BNE $ 7BR IF YES 
71 037726 105761 036760 TSTB DPINT(R1) TRYING TO INIT THE DRIVE 
a8 037732 od ey BNE 5$ ;BR IF Y 
37 Oe? 004037 037316 JSR RO,DORVINT 360 INIT. THE DRIVE 
374 037740 000434 feta 4 sERROR RETURN 
375 037742 105761 036740 TSTB DRVSTA(R1) 71S DRIVE STATUS ONLINE? 
376 037746 003445 BLE $ :BR IF T 
377 037750 105761 036770 1$: TSTB DPRQS(R1) ;QUTSTANDING PORT REQUEST FOR THE DRIVE ? 
378 037754 001031 BNE 5$ 7BR IF YES 
379 037756 010164 000010 MOV R1,RMACS2(R4) :SELECT THE DRIVE 
380 037762 004037 045070 JSR RO, DRVQUE :PUT THIS REQUEST IN QUEUE 
381 037766 000460 BR 9$ ;QUEVE IS FULL 
382 037770 \ce76e 000103 000002 CMPB #103,2(R2) 71S THIS REQ. FOR AN UNLOAD? 
383 037776 00100 BNE 23 ;BR IF NO 
384 040000 112761 177777 037006 MOVB #-1,ULDFLG(R1) ;SET THE “UNLOAD IN QUEUE'’ FLAG 
385 040006 105761 036730 2s: 1STB DRVACT(R1) 71S THIS DRIVE ACTIVE? 
386 040012 001043 BNE 8$ BR IF YE 
387 040014 004737 040146 JSR PC ,OPT CALL THE OPTIMIZER 
388 040020 000440 BR 
389 040022 012762 120000 000016 38: MOV #B1T15!B1113, 16(R2) ;SET THE "UNLOAD IN QUEUE'’ ERROR FLAG 
390 040030 000434 BR 8% EXIT 
391 040032 004737 041226 4$: JSR PC,CI?7 G0 HANDLE THE PARITY ERROR 
392 040036 000431 BR $ 
393 040040 004037 045070 5$: JSR RO, DRVQUE ;PUT REQUEST IN QUEUE 
394 040044 000431 Bw 9$ QUEUE IS FULL 
95 reets] Orer ie 000100 BIT #81106, (R4) :1€ BIT SET ? 
% 5 19g BNE sYES 
397 040054 004737 044426 JSR PC,SET.IE ;SET THE INTERRUPT 
040060 000420 BR $ RETURN 
399 040062 105761 036740 6$: TSTB DRVSTA(R1) 7SEE IF DRIVE OFFLINE OR UNSAFE 
040066 002412 BLT 7$ :BR IF UNSAFE 
401 040070 012762 140000 000016 MOV #BIT1S'BIT14, 16(R2) sSET OFFLINE ERROR INDICATOR 
2 040076 105761 036750 TSTB DRVTYP(R1) sSEE IF OFFLINE OR NONEXISTENT 
403 040102 001007 BNE 8$ :BR IF OFFLINE 
404 040104 012762 100002 000016 MOV #B1T15'B1T01, 16(R2) REPORT DRIVE NONEXISTENT 
405 040112 000403 BR $ ‘ TO EXIT 
040114 012762 110000 000016 73: MOV #B1T15'BI112, 16(R2) DRIVE IS UNSAFE 
407 040122 104413 8$: RESREG sRESTORE RO - RS 
408 040124 005720 TST (RO)+ ;SETUP FOR NORMAL RETURN 
040126 000401 BR 108 :FINISH UP, THEN EXIT 
410 040130 1046413 9$: RESREG TRESTORE RO = RS 
41% 040132 005720 108: TST (RO)+ CORRECT THE RETURN ADDRESS 
412 040134 105037 037004 CLRB ACTORV :CLEAR "ACTIVE DRIVER’ FLAG 
413 040140 012637 177776 MOV (SP)+,PS ;RETURN ‘'PS'' TO USER LEVEL 
“1 040144 000200 RTS RO ;RETURN TO CALLER 
ty ;OPTIMIZER=CALLED FOR A PARTICULAR DRIVE 
418 7 CALL 
419 ; MOV #DRVNUM,R1 DRIVE NUMBER TO RI 
420 : JSR PC OPT :SETUP A COMMAND 
4 : 
422 040146 104412 OPT: SAVREG :SAVE RO - RS 
423 040150 013746 177776 MOV PS,-(SP) >SAVE PROC. STATUS 
426 0460154 146137 037054 037002 B1(B ATABIT(R1), SRCHWT CLEAR LA SEACH FLAG 
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RH/RM DRIVER INITIALIZATION CODE SEQ 0161 
425 040162 105061 036770 CLRB DPRQS(R1) : RESET THE PORT REQ FLAG eeee 
426 040166 004737 045144 JSR PC ,GETREQ [GET DPB’ POINTER OF REQUES 
427 040172 90570¢ 1ST R2 71S THERE of REQUEST IN QUEUE? 
428 0401746 00147 BEQ 7$ :NO--BR TO EXIT 
429 040176 010164 000010 MOV R1,RMCS2(R4) *LOAD - alte ADDRESS seeeeee 

0 040202 012764 000111 000000 MOV #111, RMCSI(RG) CLEAR THE DRIVE 
431 040210 032764 004000 000000 BIT seivite RMCS1(R4) :DVA SET ? 
432 040216 001446 BEQ 5$ ;T0 PROT REQUEST ,IF NOT 
433 040220 105761 036740 108: TSTB = DRVSTACR1) [1S DRIVE ONLINE? 
34 040224 003014 BGT 1$ iVES 
435 040206 004737 0465166 JSR PC, POPQUE NO=-REMOVE REQUEST FROM QUEUE 
040232 012762 140000 000016 MOV wBiT1S! BIT14, 16(R2) 3 SET OFFLINE STATUS/ERROR INDICATOR 
437 040240 105761 036740 TSTB DRVSTA(R1) is DRIVE UNSAFE ? 
438 040246 100053 BPL &$ BR TO EXIT JF NOT 
439 040246 012762 110000 000016 MOV seIT15:B1T12, 16¢R5) in’ UNSAFE STATUS/ERROR INDICATOR 
440 040254 000447 BR 8$ :BR TO EXIT 
441 040256 1$: 
442 ; MOV #111,-(SP) ;LOAD COMMAND ONTO THE STACK 
443 : JSR RO,WRT.RM [LOAD THE REGISTER 
44a : RMCS1 [REGISTER INCREMENT 
445 3 6$ sERROR RETURN ADDRESS 
ry : BIT MBITI1,(R4) sDRIVE AVAILABLE ? 
; BEQ %$ :BR IF NOT 
Pe 040256 122762 000150 000002 CMPB ss #150, 2(R2) :1$ THE REQUEST FOR 1/0? 
449 040264 002403 BLT 2$ YES 
450 040266 004737 040612 JSR PC,C14 *CALL THE COMMAND INITIATOR 
451 040272 000440 BR 8$ ‘BR TO EXIT 
452 040274 005737 037052 2s: TST DTUW ;DATA TRANSFER UNDERWAY? 
453 040500 002012 BGE 4% * YES=-G0 START A SEARCH 
454 040302 005737 037030 TST SEEKFG :00 IMPLIED SEEKS? 
455 040306 100404 BM] 3$ YES 
456 040310 004037 041564 JSR RO,LA NO--D0O LOOK AHEAD 
457 040314 000427 BR 8S “RETURN HERE ON A PARITY ERROR 
458 040316 000403 BR 4$ 'G0 START A SEARCH 
459 0640320 004737 040404 3$: JSR PC,C11 sSTART A DATA TRANSFER 
460 040326 000423 BR aS 
461 040326 006737 040512 4$: JSR PC,C13 sSTART A SEARCH 
462 040332 000420 BR as ‘G0 TO THE EXIT 
463 040334 112761 177777 036770 S$: MOVB #-1,DPRQS(R1) ;SET PORT REQUEST INDICATOR 
464 040342 010103 MOV Ri, R3 :SET UP TO oy WORDS 
465 040344 006303 ASL R3_ ;CONVERT TO WORD INDEX 
040346 012763 060000 037032 MOV #60000, TIMER(R3)- :START 10 SEC TIMER 
467 040354 000402 BR 7$ XIT 
468 040356 004737 041226 6$: JSR PC,CI7 “PROCESS THE PARITY ERROR 
469 040362 032714 000100 7$: BIT #B1T06, (R4) ;SEE IF “IE* ALREADY SET 
470 040366 001002 BNE 8$ :BR IF SET ee 
re 040370 006737 044426 JSR PC,SET.IE sSET “‘IE’’ WITHOUT A “TRE 
are 040374 012637 177776 8$: MOV (SP)+,PS sRESTORE PROC. STATUS 
473 040400 104413 RESREG TRESTORE RO - RS 
or 040602 000207 RTS PC 
476 ;COMMAND INITIATOR 
477 : 
«78 * CALL 
479 3 MOV #DRVNUM,R1 ;DRIVE NUMBER 
480 ® MOV #DPB,R2 sADDRESS OF DPB 
481 $ JSR PC,Cl? :C1?= C11,C13, OR C14 
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RH/RM DRIVER INITIALIZATION CODE SEQ 0162 
482 ; ; WHERE: 
483 ; :C11=DATA TRANSFER 
484 ; ;CI2=SEARCH REQUESTED BY DATA XFER 
reF4 3 :C14=NOT DATA TRANSFER 
487 040404 004737 045166 C11: JSR PC ,POPQUE ;REMOVE REQUEST FROM ‘DRIVES WAIT’’ QUEUE 
488 040410 010237 037000 MOV R2,TRNSWT :PUT REQ. IN TRANSFER WAIT QUEUE 
489 040614 010203 MOV R2,R3 ;DPB ADDRESS TO R3 
490 040416 013704 037066 MOV RMADR RG :RMCS1 ADDRESS 
491 040422 010164 000010 MOV R1,RMCS2(R4) :SELECT DRIVE 
492 040426 062703 000004 ADD #4 R3 :DESIRED WORD COUNT 
493 040432 062704 000002 ADD #2,R4 :RMWC ADDRESS 
494 040636 012326 MOV (R3)+,(RG)4 [LOAD WORD COUNT 
495 040440 012324 MOV (R3)+,(R4)¢4 :LOAD BUFFER ADDRESS 
040442 012346 MOV (R3)+,-(SP) ;LOAD SECTOR AND TRACK 
497 040444 004037 044116 JSR RO,WRT.RM :CALL THE LOAD(WRITE) ROUTINE 
498 040450 000006 RMDA s INDEX OF REGISTER TO LOAD 
499 040452 041226 (17 ZERROR RETURN ADDRESS 
040454 012346 MOV (R3)+,=(SP) ZLOAD CYLINDER ADDRESS 
501 040456 004037 044116 JSR RO,WRT.RM 
502 040462 34 RMDC 
503 040464 0461226 (17 
504 040466 016246 000002 MOV 2(R2),-(SP) ;LOAD ‘‘COMMAND+GO"', ‘‘A178A16"', AND ‘'PSEL"’ 
505 040472 004037 044116 JSR RO,WRT.RM 
506 040476 000000 RMCS1 
507 040500 041226 17 
508 040502 010137 037052 MOV R1,DTUW :SET "DATA TRANSFER UNDERWAY’ 
509 040506 900157 041170 JMP c1§ 
510 04051 13704 037066 C13: MOV RMADR,R4 :RMCS1 ADDRESS 
511 040516 010164 000010 MOV R1,RMCS2(R4) >SELECT DRIVE 
512 040522 016246 000012 MOV 12(R2) ,-(SP) :DESIRED CYLINDER ADDRESS 
513 040526 004037 044116 JSR RO,WRT.RM 
514 040532 000034 RMDC 
515 040534 041226 (17 
516 040536 116203 000010 MOVB 10(R2),R3 sPICKUP SECTOR ADDRESS 
517 ; SUB MXWNDW,R3 sBACKUP BY MAX. SEARCH FOR 1/0 WINDOW 
518 : BGE 1$ 
519 : ADD #32.,R3 
520 040542 010346 i$: MOV R3,-(SP) COMBINE THE ADJUSTED SECTOR WITH 
$21 040544 042716 177740 BIC #177740, (SP) :CHOP OF ALL EXENTED BITS IF ANY 
522 040550 116266 000011 000001 MOVB 11(R2),1¢SP) :THE DESIRED TRACK 
523 040556 004037 044116 JSR RO,WRT.RM SLOAD DESIRED TRACK & SECTOR 
524 040562 000006 RMDA 
525 040564 041226 C17 
526 040566 012746 000131 MOV #131,-(SP) sSTART A SEARCH 
527 040572 004037 044116 JSR RO,WRT.RM 
528 040576 000000 RMCS1 
529 040600 041226 C1? te . 
530 040602 156137 037054 037002 B1SB ATABIT(R1), SRCHWT rSET “'SEARCH WAIT’ KEY 
531 040610 000567 BR C15 
532 040612 013704 037066 C14: MOV RMADR,R4 :RMCS1 ADDRESS 
533 040616 010164 000010 MOV R1,RMCS2(R4) sSELECT DRIVE 
534 bedece 11620 000002 MOVB 2(R2),R3 :PICKUP THE REQUESTED COMMAND 
535 040626 122703 000131 CMPB #131,R3 :1$ IT A SEARCH COMMAND? 
536 040632 001007 BNE 1$ ;BR IF NO 
53/ 040634 016246 000010 MOV 10(R2),-(SP) [LOAD DESIRED TRACK & SECTOR 
538 040640 004037 044116 JSR RO,WRT.RM 


CZRMVAO RMOS/3/2 EXT'D DR TST 
RH/RM DRIVER INITIALIZATION CODE 


539 040664 000006 
$40 040646 041226 
$41 040650 000403 
542 040652 122703 000105 
543 040656 001007 
4 04 016246 000012 
5 04 006037 044116 
546 040670 000034 
547 040672 041226 
$48 040674 000546 
549 040676 122703 000115 
550 040702 001013 
551 040704 004037 043736 
§52 040710 000032 
$53 040712 041226 
$54 040714 116216 000001 
555 040720 006037 044116 
$56 040724 000032 
557 060726 041226 
$58 040730 000530 
559 040732 122703 000107 
560 040736 001525 
561 040740 122703 000117 
562 040744 001522 
563 060746 122703 000103 
564 040752 001016 
565 040754 112761 000001 
366 040762 105061 056740 
567 060766 112761 000001 
568 040774 010346 
569 040776 004037 044116 
570 041002 000000 
571 061006 041226 
572 041006 000207 
573 041010 122703 000143 
$74 041014 001014 
575 061016 004037 043736 
576 041022 000032 
577 041024 041226 
578 041026 116266 000001 
579 041034 004037 044116 
$80 041040 000032 
581 041042 041226 
582 041044 000436 
§83 041046 122703 000141 
584 041052 001023 
385 041054 016203 000006 
587 041060 116237 000010 
588 041066 116205 000011 
589 041072 004037 043736 
590 041076 000000 
$91 041100 041226 
592 041102 012623 
593 041104 023705 041076 
$94 041110 001414 
$95 041112 062737 000002 


4 


13 
MACRO V03.01 11-APR-80 15:01:20 PAGE 15-10 


036730 
037006 


000001 


041076 


041076 


1$: 
2s: 


3$: 


4$: 


5$: 


6$: 
7$: 


8$: 
9$: 


28 3GO0 LOAD CYLINDER 

#105,R3 :1S 1T A SEEK COMMAND 

$ ;BR IF NO 

12(R2) ,=(SP) ;LOAD DESIRED CYLINDER 

RO,WRT.RM 

C16 

#115,R3 :1S 17 AN ‘‘OFFSET’’ COMMAND? 

4% ;BR IF NO 

RO,RD.RM ;MERGE THE OFFSET VALUE INTO RMOF 
;BUT DON'T CHANGE THE UPPER 

1(R2), (SP) ;BYTE WHEN LOADING THE 

RO,WRT.RM REGISTER (RMOF) 

C16 :GO0 START THE COMMAND 

#107,R3 31S 1T A ‘'RECALIBRATE'’ COMMAND? 

C16 ;BR IF YES 

#117,R3 ;1S 11 A RETURN TO CENTER? 

C16 ;BR IF YES 

#103,R3 31S IT AN “‘UNLOAD’’ COMMAND? 

5$ ;BR IF NO 

#1 ,DRVACT(R1) SET THE DRIVE ACTIVE INDICATOR 

DRVSTA(R1) :PUT DRIVE STATUS TO OFFLINE 


#1, ULDFLG(R1) 


R3,-(SP) 
RO,WRT.RM 


PC 
#143,R3 
6$ 
RO,RD.RM 


1(R2),10SP) 
RO,WRT.RM 


12% 
#141,R3 
10% 
6(R2) ,R5 


10(R2) ,98 
11(R2),R5 
RO,ROD.RM 


(SP)+,(R3)¢ 
9$,R5 


12 
#2,9% 


;RETURN TO USER 
31S IT A ‘’SET FORMAT’ COMMAND? 


:BR IF NO 
;READ THE OFFSET REGISTER 


sCOMBINE “FMT16"',"ECI"', AND “‘HCI"’ 


[LOAD ‘'FMT16"', “ECI'', AND/OR "HCI". 


31S IT A ‘GET REGISTER’ COMMAND? 
:BR IF NO 

;POINTS TO 1ST ADDRESS OF WHERE 
TO PUT THE REGISTER(S) 


INIT. THE INDEX FOR THE FIRST REG. 


[INDEX OF LAST REG. 10 MOVE 
> INDEX OF REG. TO READ 

:GET THE CONTENTS OF RH/RM REG. 
: ‘ READ? 


: YES 
; INCREASE THE INDEX BY 2 


SEQ 0163 


596 0414120 
597 Q41122 
598 041126 
599 0411 
600 041132 
601 041136 
602 041140 
603 041142 
604 041146 
605 041154 
606 041160 
607 041162 
608 041166 
609 041170 
610 041172 
611 041200 
612 041262 
613 041210 
614 041212 
615 041214 
616 041220 
617 041222 
618 041224 
619 041226 
620 

621 041234 
622 

623 061236 
624 041240 
625 041242 
626 

627 041250 
628 041254 
629 041260 
630 041262 
631 041264 
632 041270 
633 041274 
634 041300 
635 041304 
636 

637 041310 
638 041312 
639 041316 
640 041524 
641 041326 
642 041330 
643 

644 041336 
645 041340 
646 041342 
647 

648 041346 
649 041350 
650 041354 
651 041356 
652 041362 
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000761 
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000145 


044116 


045166 
000200 
037026 
044310 


060000 
000001 


044116 


010000 


104000 
000111 
044116 


045050 


010000 


036730 


036770 


037000 
037052 
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BR 8% ee are TO READ 
108: CMPB #145,R3 318 IT A ‘SELECT DRIVE'’ COMMAND? 
BEQ 12% :BR IF YE 
118: MOV R3,-(SP) ;LOAD THE COMMAND 
SR RO,WRT.RM 
+ 
12$: JSR PC ,POPQUE ;REMOVE REQ. FROM QUEUE 
000016 BIS #61107, T6¢R2) + SET THE ‘‘DON T 
TST SAVEFG ;SAVE THE RHR REGISTERS? 
BPL 13$ =BR IF NO 
JSR PC, SVRH70 ;YES=-GO SAVE THE REGISTERS 
13$: RTS PC “RETURN TO USER 
C15: ASL R1 
037032 pr tena ataemaiers 7SET A ONE SECOND TIMER 
036730 MOVB #1 ,DRVACT(R1) :SET THE DRIVE ACTIVE 
RTS PC RETURN TO THE USER 
C16: MOV R3,-(SP) “LOAD THE COMMAND 
JSR RO,WRT.RM 
RMCS1 
C17 
BR C15 
000010 (C17: oir 73 RMCS2 (RG) sDRIVE NON-EXISTENT ? 
1$ TST R2 a ANYTHING IN QUEUE ? 
; BEQ C178 :BR IF NOT 
BNE 2$ so IF QUEUE 1$ THERE 
RTS PC THERWISE EXIT 
000016 2%: MOV #BITIS'BITI1, 16tha) SET ‘PARITY’ —_, INDICATOR 
: JSR PC,SVRH70 O SAVE’ THE RH/RM REGIST ER 
C17B: MOV #111,-(SP) ‘80 A ‘DRIVE CLEAR"’ 
SR RO,WRT.RM 
RMCS1 
C18 
2$ JSR PC,EMPTYQ sEMPTY THE QUEUE 
CLRB DPROS(R1) ;CLEAR THE PORT REQUEST FLAG 
CLRB ULDFLG(R1) ;CLEAR THE UNLOAD 'N QUEUE FLAG 
CLRB DRVACT(R1) sDRIVE IS IDLE 
CMP R2, TRNSWT s1F THIS DRIVE HAD AN I/O REQUEST 
: CMP R1,0TUW ;1F THIS DRIVE HAD AN 1/0 REQUEST 
BNE 1$ IN PROGRESS CLEAR ALL OF THE FLAGS 
CLR TRNSWT 
037052 MOV #-1,07UW 
1$: TS PC 
C18: SAVREG sSAVE RO = RS 
000010 BIT #BIT12,RMCS2(R4) 23S °MED* SET 7? 
: BNE 1$ ; YES 
CLR R1 
CLR R3 
1$ TS1B DRVACT(R1) mete ACTIVE? 
; BEQ 5$ 7BR NO 
BNE 22% 3BR iF IN ACTIVE 
TSTB DPRQS(R1) ;PORT 2 
BEQ 5$ BR IF 
22%: MOV TRNSWT,R2 GET THE OT TRANSFER WAIT’’ QUEUE 
CMP R1,D1TUW ;D1D THIS DRIVE HAVE AN 1/0 IN PROGRESS? 


1 


SEQ 0164 


CZRMVAO RMOS/3/2 EXT'D DR TST 
RH/RM DRIVER INITIALIZATION CODE 


653 041366 90140 

654 041370 006737 045144 
655 041574 005708 

656 041376 00141 

657 041400 032764 010000 
658 041406 001404 

659 041410 012762 100002 
660 041416 00040 

661 041420 012762 102000 
663 041426 012763 177777 
664 041434 105061 036730 
665 041440 105061 036770 
666 041444 020137 037052 
667 041450 001005 

668 041452 012737 177777 
669 041460 005037 037000 
670 041464 105061 037006 
671 041470 052764 010000 
673 061476 005201 

674 041500 062703 000002 
675 041504 042701 177770 
676 041510 001314 

677 041512 012737 177777 
678 041520 005037 037000 
679 041524 004737 044772 
680 061530 012764 000040 
681 041536 000406 

682 041540 004737 045050 
683 041544 105061 036740 
684 041550 105061 036750 
685 041554 004737 044426 
686 041560 104413 

687 041562 000207 

688 

689 

690 

691 

692 

693 

69% 

695 

696 

697 

698 

699 041564 013704 037066 
700 041570 010164 000010 
701 041574 004037 043736 
702 041600 000012 

703 041602 041732 

704 041604 042716 157577 
705 041610 022726 000200 
706 041614 001044 

707 041616 105261 037016 
708 041622 126137 037016 
709 041630 003033 
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23: 
000010 
000016 
000016 38: 
037032 is: 


037052 


5$: 
000010 


037052 


000010 
6$: 


7$: 


:BR_IF YES 
;GET THE DPB POINTER 
;QUEUVE ENTRY FOR DRIVE ? 


4$ :BR IF NOT 

#B1T12,RACS2(R4) j 1NED* SET ? 
#B1T15'B1T01,16(R2) 
#B1T15!B1T10, 16(R2) 
PC :SAVE RH/RM REGISTERS 


SVRH 
#-1,TIMER(R3) :STOP THE TIMER 
DRVACT(R1) [SET "DRIVE ACTIVE’ TO IDLE 


2$ 
PC,GETREQ 
R2 


DPRQS(R1) ;CLEAR PORT REQUEST FLAG 

R1,0TUW 31S THIS DRIVE SETUP FOR A TRANSFER 
5$ ;BR IF NOT 

#-1,0TUW ;RESET THE INDICATOR 

TRNSWT ;CLEAR THE TRANSFER QUEUE 
ULDFLG(R1) ;CLEAR UNLOAD FLAG 
MBIT12,RMCS2(R4) ;"NED' SET ? 

6$ 3;BR IF YES 

R1 sMOVE TO THE NEXT DRIVE 

#2,R3 

#*C7,R1 

1$ ;BR IF MORE DRIVES 

#-1,D0TUW ;NO DATA TRANSFERS UNDERWAY 
TRNSWT ;CLEAR THE "TRANSFER WAIT’ QUEUE 
PC,CL ;CLEAR ALL OF THE REQUEST QUEUES 


RQUE 
MCLR,RMCS2(R4) ;DO0 A MASSBUS INIT. 
7$ ; CONTINUE 
CLEAR THE DRIVE'S QUEUE 


PC,EMPTYQ 

DRVSTA(R1) SET DRIVE TO OFFLINE 

DRVTYP(R1) CLEAR THE DRIVE TYPE INDICATOR 

PC,SET.IE ;SET ““IE’’ WITHOUT ‘‘TRE"’ 
sRESTORE RO - R5 

PC ;RETURN 


;LOOK AHEAD ROUTINE 


= CALL 


LA: 


037074 


#DRVNUM,R? :DRIVE NUMBER 
#DPB,R2 ‘POINT TO DPB 
RO,LA [G0 CHECK THE WINDOW 

TERROR RETURN 

[START A SEARCH 

[START A DATA TRANSFER 
RMADR RS :GET RMCS1°S ADDRESS 
R1,RMCS2(R4)  : SELECT DRIVE 
RO.RD.RM TREAD DRIVE STATUS 

sERROR RETURN ADDRESS 
#*C020200,(SP) :0N CYLINDER ? 
#200, (SP)4 :PIP=0,DRY=12 
LACNT(R1) [INCREMENT THE LOOK, AHEAD COUNT 

° x? 


LACNT(R1) ,MXLACT ;EXCEED 
2% IF YES 


N 
aes "DRIVE NON-EXISTENT’ INDICATOR 
3SET “'NON-CLEARABLE PARITY’ ERROR INDICATOR 


SEQ 01465 


CZRMVAO RMOS/3/2 
RH/RM DRIVER INI 
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~~~ 
Www 
ew 
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ooo »x 
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D 
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£onoon~ 
SSS Sse see oS aeecce ne 


WWE WWW NS 


(et e+ ery 
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oOo 
—u 
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DR ig 
ATION 


000010 
000340 
043736 


000020 


004000 
037076 


037100 
037016 


041226 


000001 


037066 
037052 


042004 
042154 
037004 


036730 
177777 


177777 
037000 


043736 


037026 


177776 


037004 


037052 
037032 


000016 


3$: TST 


4$: JSR 
5$: RTS 
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(R2),R3 


ew 
(SP)+ 

3$ 

(SP)+,R3 

1$ 


#<32.*64.>,R3 
oe 


Pea 
LACNT(R1) 
(RO)+ 
(RO)+ 

5$ 

PC,CI7 

RO 


: INTERRUPT SERVICE ROUTINE 


ISR: 


#1,ACTORV 


RMADR ,R4 
DTUW,R1 
1$ 


PC,1D 
2$ 
PC,SC 
ACTDRV 


; TRANSFER DONE ROUTINE 


DRVACT(R1) 
-1,0TUW 


R1 
daha 
TRNSWT ,R2 
TRNSWT 
#B1T07,16(R2) 
R1,RMCS2(R4) 
RO,RD.RM 
(SP)+ 

3$ 

SAVEFG 


SEQ 0166 


+ ey -_ 5 SECTOR | yl AND 
MULT. BY 64=--ALIGN WITH 
LOOK AHEAD REGISTER 


‘PRIORITY LEVEL ‘‘7"" 
;READ LOOK AHEAD REGISTER 


:CORRECT LA NUMBER ? 
[NO,CLEAR STACK 
sCALCULATE THE DELTA 


sMAKE THE DELTA POSITIVE 
:CHECK THE DELTA TO SEE 
:1F IT 1S WITHIN THE 
sWINDOW---IF YES, ZERO 
THE LOOK AHEAD COUNT 
AND TAKE THE 1/0 EXIT 


+34} a THE RETURN ADDRESS 
PROCESS THE ERROR 
ETURN 


sSET ‘ACTIVE DRIVER’ FLAG 

:SAVE RO = RS 

; ADDRESS OF RHSCS1 

:GET ‘‘DATA TRANSFER UNDERWAY'' INDICATOR 
NO DATA TRANSFER UNDERWAY 


:BR IF 

ent TRANSFER DONE 

CALL SPECIAL CONDITIONS 
RO = R5 


RESTORE 
;CLEAR "‘ACTIVE DRIVER’ FLAG 
TURN 


SET DRIVE ACTIVE INDICATOR TO IDLE 
NO DATA TRANSFERS UNDERWAY 


CANCEL TIMEOUT 


;GET ‘‘DPB’’ ADDRESS FROM THE 
; TRANSFER WAIT QUEUE--CLEAR QUEUE 
:SET DONE 


:SELECT THE DRIVE 
; TRANSFER ERROR(TRE=1)? 


:BR IF YES 
SAVE THE RH/RM REGISTERS? 


CZRMVAO RMOS/3/2 EXT'D 
RH/RM DRIVER INITIALIZATION CODE 


767 peste 
768 042074 
772 042100 
774 042100 
775 042104 
776 042106 
777 042110 
778 042114 
779 
780 042116 
781 042122 
782 042124 
783 042132 
784 042136 
785 042142 
786 042146 
787 042152 
788 
789 
806 
807 
808 
809 042154 
810 042160 
811 042162 
812 042166 
813 042170 
814 
815 042172 
816 042174 
817 042176 
042202 
818 042204 
819 042210 
820 042212 
821 042214 
822 042216 
823 042222 
824 042224 
825 042226 
826 042230 
827 042232 
828 042234 
829 042236 
830 042240 
831 042242 
832 042246 
8335 042250 
834 042254 
835 042260 
836 042262 
837 042266 
838 04 ste 
839 042274 
840 042500 
841 042302 
842 042306 


100002 
004737 


004737 
02 


041326 
106126 


000207 


Ss 
we 


ssss 


Ssssss 
Soooooo 
FEW 


DR TST 


044310 
045144 


040146 


000113 
100100 
0 


000016 
043736 


045234 
044426 


000001 


036760 


043166 
036770 


043166 
036740 


037006 


045144 
044310 
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000016 


‘CHECK OTH 
- THE RELEASE DRIVE COMMAND IS FORECD TO ENTER FOR DUAL PORT OPERATION 
ds: #113, (RG) REL LEA SE THE DRIVE 


3$: 


SPECIAL CONDITION ROUTINE 
pce 


x: 


1$ 
PC, SVRH70 
PC,GETREQ 
Re 


23 
PC,OPT 


W113, (R4) 
sc 


RO,RD.RM 


(SP)+ 

1$ 

OO .£5.0me 
PC,SET.IE 
PC 


PC 
DPINT(R1) 
1$ 

$¢13 
DPRQS(R1) 
2s 

$C13 
DRVSTACR1) 
ULDFLG(R1) 
5$ 


PC ,GETREQ 
PC, SVRH70 


SC 
Tit. ie 7 SET 


:BR IF NO 
7 YES--SAVE THE REGISTERS 


;GET DPB POINTER 
sENTRY FOR DRIVE ? 
BR IF NOT 
;CALL OPTIMIZER 

HER DRIVES 


v 

K FOR OTHER DRIVES 
DATA ERROR FLAG 

PTY THE ‘‘DRIVE'S WAIT’ QUEUE 
;SAVE THE RH/RM te s 
ISSUE A ‘DRIVE C 
s ISSUE A RELEASE. to. THe DRIVE 
:CHECK FOR OTHER DRIVES 


;READ ‘'RMAS' 
7BR IF ANY CATA BITS SET 
;READ CONTROL AND STATUS REGISTER 


sEXIT IF FAIL TO READ 
s1S “IE*'=1? 

YES, NO DRIVES TO CHECK 

:SAVE THE ADDRESS IN 'SESCAPE* 
;REPORT AN ILLEGAL INTERRUPT 
3H a cpt ENABLE 


Hn ty aa DRIVES THAT HAVE 
sATA=1? 

7YES 

sMOVE TO THE NEXT DRIVE 

3BR IF MORE TO CHECK? 

;CLEAN OFF THE STACK 

‘RETURN TO USER 

HINITIALIZING THE DRIVE ? 


N 
:PROCESS THE DRIVE 
:PORT > pd OUTSTANDING ? 


START THE et aes fey COMMAND 
; CHECK THE DRIVE STATUS 


IF ONLINE 
ZUNLOAD tN PROGRESS? 
R_IF NOT 
GET DPB POINTER 
SAVE THE RH/RM REGISTERS 


SEQ 0167 
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RH/RM DRIVER INITIALIZATION CODE SEQ 0168 
843 042312 004737 043115 JSR PC,SC12 ; SAVE RMDS, RMER1, RMER? , AND RMARZ 
844 ALSO DO A DRIVE INIT (DRVINT) 

B45 042316 105761 036740 TSTB = DRVSTAC(R1) ‘DID DRIVE COME ONLINE? 

846 042322 003414 BLE 6 

B47 042324 032737 040000 036720 BIT #BIT14,RMERRS “WAS THERE AN ERROR? 

848 042332 001000 BNE 34 ‘BR IF ERROR 

849 : JMP $¢11 [NO ERROR 

850 042334 013705 036722 Ss: MOV RMERRS+2,R5 :YES == PICKUP RMER1 AND 

851 042340 000504 BR SCOA :GO PROCESS THE ERROR 

852 042342 105761 036730 5$: TSTB = DRVACT(R1) ‘DRIVE ACTIVE WITH COMMAND OR ERROR RECOVERY ? 

853 042346 001033 BNE SC6 ‘BR IF EITHER 

854 042350 004737 043116 JSR PC,SC12 7SAVE RMDS, RMERI, RMER2, AND RMMR2 

855 tALSO DO A DRVINT 

856 042354 105761 036760 6$: TSTB —s DPINT(R1) : TRYING TO INIT THE DRIVE ? 

857 042360 001323 BNE $C4 R_IF YES, CHECK ON MORE DRIVES 

858 042362 105761 036740 TSTB DRVSTACR1) <CHECK ON DRIVE'S STATUS 

859 042366 100412 BMI 7$ [BR IF UNSAFE 

860 042370 032737 020000 036724 BIT #B1T13,RMERRS+4 ZADDRESS PLUG CHANGED ? 

861 042376 001013 BNE 8$ ‘BR IF YES 

862 ; MOV #113,-(SP) ‘RELEASE COMMAND 

863 042400 012746 000111 MOV #111,-(SP) :DRIVE CLEAR 

B64 042404 004037 044116 JSR RO,WRT.RM ‘WRITE THE COMMAND INTO RMCS1 

865 042410 000000 RMCS1 REGISTER INDEX 

866 042412 042756 cB PARITY EXIT ADDRESS 

867 042414 011605 7$: MOV (SP),R5 [PICKUP (RMAS) BEFORE THE ERROR CALL 

868 042416 037 045234 JSR RO,ES.SAV :SAVE THE ADDRESS IN 'SESCAPE' 
042422 104002 EMT 2 :REPORT THE UNEXPECTED ATTENTION 

869 Ougugs 000701 BR S04 :GO CHECK FOR MORE ATA'S 

870 042426 8S: 
042426 004037 045234 JSR RO,ES.SAV :SAVE THE ADDRESS IN 'SESCAPE’ 
042432 104005 EMT 5 SREPORT THE ADDRESS PLUG CHANGE 

871 042434 000675 BR $C4 :CHECK FOR MORE DRIVES 

872 042436 006301 SC6: — ASL RI [SETUP TO ADDRESS WORDS 

873 042440 012761 177777 037032 MOV #-1,TIMER(R1)  :STOP THE TIMER 

874 042446 006201 ASR R1 SRESTORE THE DRIVE ADDRESS 

875 042450 004737 045144 JSR PC,GETREQ GET THE DPB POINTER FROM THE QUEUE 

876 042454 010164 000010 MOV R1RMCS2(R4) ;SELECT DRIVE 

877 042460 000137 043006 JMP Sci “PROCESS THE SEARCH 

878 042464 004037 043736 JSR RO,RD.RM ‘READ THE RM'S STATUS: REG. 

879 042470 000012 RMDS 

880 042472 042756 SC8 

881 042474 011605 MOV (SP) ,R5 :AND PUT IT IN RS 

882 042476 006126 ROL (SP)4 [WAS THERE AN ERROR? 

883 042500 100407 BMI 1$ :BR IF ERROR 

884 042502 105761 036730 TSTB = DRVACT(R1) i CHECK DRIVE'S STATE 

B85 042506 003137 BGT $C11 IF DRIVE ACTIVE WITH ORDER 

886 042510 052762 100210 000016 BIS PBITIS!BITO7!B1T63" 16(R2) s INFORM USER OF ERROR RECOVER COMPLETION 

887 042516 000470 BR SC7 

888 042520 004037 043736 1$: JSR RO,RD.RM :READ ERROR REGISTER #1 

889 042524 000014 RMER1 

890 042526 042756 SCB . 

891 042530 012605 MOV (SP)+,R5 :AND SAVE IT IN R5 

892 042532 004737 044310 JSR PC,SVRH70 SAVE RH/RM REGISTERS 

893 042936 012746 000111 MOV #111,-(SP) :ISSUE A DRIVE CLEAR 

B94 042542 004037 044116 SR RO,WRT.RM 

895 042546 000000 RMCS1 

896 042550 042756 C8 


CZRMVAO RMO5/3/2 EXT'D DR TST 
RH/RM DRIVER INITIALIZATION CODE 


Oo 00 
33 
oo 
ww 
oer 


100240 
043736 
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6 
SEQ 0169 


SCOA: aot * :WAS Mar aa CONDITION =1? 
TST R2 ZANYTHING IN QUEUE ? 
BEQ $7 IF NO 
000016 th #61115:01107 81165, 16(Re) : INFORM USER OF ERROR 
1$: JSR RO,RO.RM ;READ DRIVE STATUS REG. #1 
RMDS 
$¢8 
MOV (SP) ,R5 eraNe RMDS IN R5 
ROL (SP)+ ;"ERR''=1? 
BPL 2$ :BR IF 7 wie CLEARED 
036740 MOVB #-1 ,DRVSTA(R1) DRIVE IS_UNSAFE 
JSR PC, SVRH? SAVE RH/RM REGISTERS 
000016 th + 4 lables 16¢R3) ; INFORM USER OF UNSAFE ERROR 
28: BIT #B1T12,R5 :‘MOL'' = 1 ? 
BNE 3$ BR IF YES 
036730 MOVB #-1,DRVACT(R1) ;ACTIVE ERROR RECOVER 
036740 — ean ; ONLINE 
L 
037032 ot | cent iteamaaetnaite ;START 3G SECOND TIMER 
JMP SC4 
000016 3$: BIS #B1T15!B1107!B1104,16(R2) : INFORM USER OF ERROR 
SC?: CLRB DRVACT(R1) sDRIVE IS IDLE 
: JSR PC,EMPTYQ ;DUMP THE ey 
JSR PC ,POPQUE :REMOVE THE QUEUE 
TSTB ULDFLG(R1) : UNLOAD IN RMOGRESS OR QUEUE? 
BGT 1$ :BR NOT 
CLRB ULDFLG(R1) CLEAR UNLOAD FLAG 
000016 1$: MOVB ATABIT(R1) ,RMAS (RG) ;CLEAR ATTENTION BIT 
TSTB DRVSTA(R1) ;1S THE DRIVE UNSAFE ? 
BM] 2$ :BR IF IT IS 
: MOV #113,-(SP) ‘RELEASE COMMAND 
MOV #111,-(SP) DRIVE CLEAR COMMAND 
JSR RO,WRT RM :WRITE THE COMMAND INTO RPCS1 
RMCS1 ;REGISTER INDEX 
$c8 ;PARITY EXIT ADDRESS 
2s: JMP SC4 :CHECK FOR MORE DRIVES 
SC8: a die ets DRIVE IDLE? 
JSR PC,GETREQ GET DPB POINTER 
JSR PC,CI7 PROCESS THE PARITY ERROR 
1 BR : CONTINUE 
; JSR PC,CI? ;PROCESS THE PARITY ERROR 
JSR PC,C17B :PROCESS THE UNCORRECTABLE PARITY ERROR 
2$: JMP 4 :CHECK MORE DRIVES 
SC11: aye ial i UNLOAD IN PROGRESS''? 
L 
CLRB ULDFLG(R1) ;CLEAR UNLOAD FLAG 
CLRB DRVACT(R1) :SET DRIVE IDLE 
037002 BITB ATABIT(R1), SRCHWT ;DOING A SEARCH OPERATION FOR 
;AN 1/0 COMMAND? 
BNE 2% ;BR IF YES 
JSR PC ,POPQUE sREMOVE REQUEST FROM QUEUE 


a a _ —--— - -——-— -— a - ———$—$—$ 
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RH/RM DRIVER INITIALIZATION CODE SEQ 0170 
954 0430460 052762 000200 000016 BIS #81107, 16(R2) eset "“"DONE'' B 
995 Oc30u8 008739 037026 ist SAVE VEFG AVE , THE REGISTERS? 
957 043054 004737 044310 JSR PC,SVRH70 i ES eSAVE ALL OF THE RH/RM REG'S 
958 04 3060 116164 037054 000016 2s: MOVB ATABITCRI), RMAS (RG) sCLEAR ATTENTION BIT 
959 04 146137 037054 037002 BICB  ATABITCR1),SRCHWT *CLEAR IMPLIED SEEK SET 
960 043076 006301 ASL RI Ww NDEX 
961 043076 012761 177777 037032 MOV #-1,TIMER(R1)  sSTOP CLOCK 
96¢ 043104 006201 ASR R1 SRESTORE R1 
96 043106 004737 040146 JSR PC,OPT SSTART A REQUEST 
964 043112 000137 042230 JMP sca *CHECK FOR MORE DRIVES 
965 043116 010164 000010 $C12: MOV RMCS2(R ‘SELECT DRIVE 
966 043122 016437 000012 036720 MOV ambe tee) RMERRS ZSAVE THE FOUR REGISTERS THAT 
967 043130 016437 000014 036722 MOV RMER1(RG) ,RMERRS#2 sWILL TELL US SOMETHING 
968 043136 016437 000042 036724 _ MOV RMER2(R4) .RMERRS*4 
969 043144 016437 000040 036726 MOV RMMR2(R4) .RMERRS+6 
970 043152 004037 037316 JSR RO,ORVINT sINIT. THE STATE OF THE DRIVE 
971 043156 000401 BR 1$ STAKE ERROR EX] 
97¢ 043160 000207 RTS PC SRETURN 
973 043162 005726 1$: TST (SP)¢+ ‘POP PC OFF OF THE STACK 
974 043164 000674 BR $C8 ;PROCESS THE PARITY ERROR 
975 043166 006301 $C13: ASL R1 :SETUP TO ADDRESS WORDS 
976 043170 012761 177777 037032 MOV #-1, TIMER(R1) ; STOP THE TIMER 
977 043176 006201 ASR R1 
978 043200 010164 000010 MOV R1,RMCS2(R4) SELECT THE DRIVE 
979 0432046 116164 037054 000016 MOVB ATABIT (RID, RMAS (RG) sCLEAR THE ATTENTION BIT 
980 043212 105761 036760 1$: TSTB = DPINT(R1) sINITIALIZING THE DRIVE ? 
981 043218 001424 BEQ 2$ ‘BR IF NOT 
982 043220 105061 036760 CLRB —s- DPINT(R1) > CLEAR WHE INIT INDICATOR 
983 043224 004037 037316 JSR RO, ORVINT ‘G60 INIT THE DRIVE 
984 043230 000240 NOP ‘DUMMY PARITY ERROR RETURN 
985 043232 105761 036740 TSTB DRVSTA(R1) sDRIVE ONLINE ? 
986 043236 003014 BGT 2$ :BR IF YES == START ORDER 
987 043240 005702 TST R2 [QUEUE ENTRY FOR THE DRIVE 
988 043242 001426 BEQ 3$ :BR IF NOT 
989 043244 006737 045144 JSR PC,GETR T DPB ADDRESS 
990 043250 g327be 140000 000016 BIS obits BIT16, 16¢ ass ; INFORM USER THAT DRIVE OFFLINE 
991 063256 004737 044310 JSR PC,SVRH70 :SAVE THE REGISTERS 
| 992 ; JSR PC. EMPTYQ TEMPTY THE REQUEST QUEUE 
993 043262 004737 045166 JSR PC, POPQUE [REMOVE THE QUEUE 
| 994 043266 000414 BR $ 
995 043270 032764 004000 000000 2s: BIT #B1T11,RMCS1(R4) :DVA SET ? 
996 043276 001006 BNE 4$ :SET THEN CALL OPT 
997 043300 006301 ASL R1 
998 043302 012761 060000 057032 MOV #60000, TIMER(R1) 
999 043310 006201 ASR R1 
1000 043312 000402 BR 3$ 
1001 043314 004737 040146 4$: JSR PC,OPT ZSTART THE PENDING REQUEST 
1002 043320 000137 042230 3$: JMP SC4 [PROCESS OTHER DRIVES 
1004 :RM TIMER ROUTINE 
1005 CALL 
1006 ; MOV #TIME,-(SP) sELASPED TIME IN MILLISECONDS ON THE STACK 
4 8 : JSR PC. RMTMR CALL RMOS TIME ROUTINE 
1009 043324 005737 037004 RMTMR: TST ACTORV ZCHECK “ACTDRV & ACTSTR' 
1010 043330 001027 BNE 4$ :1F NON ZERO EXIT 


CZRAVAO RAOS/3/2 
RH/RA DRIVER INI 


. 
ee mm ee ee ee ee ee ee ee ee ed ee ed 


011 3 
1 Sa 
013 043342 
014 043344 
015 04 § 
HY 04335 
017 043354 
018 043362 
019 04 

020 043370 
021 043572 
O22 043374 
023 043400 
024 043402 
025 043404 
026 043410 
027 043412 
028 

029 

030 

031 

032 

033 

034 

035 

036 

037 

038 

039 043414 
040 043416 
041 043420 
042 043422 
043 of 473 
044 0434 
045 0463434 
046 043440 
047 

048 043442 
049 043444 
050 043446 
051 043450 
03g 043454 
053 043456 
Bs Sais 
026 043470 
057 0434746 
058 043476 
059 043502 
060 043506 
061 043514 
5 

0635 043520 
064 oh td 33 
065 0435 
066 043534 
067 045542 


sets 


NO NWT ss 


— —s 
32558888 
OMFS AUN 
MOO fUTNT 
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tt ed ad ed 
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webs 


oS 

wr 
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S2Ss5 


DR TST 


ATION CODE 


000001 


037032 
000002 
043414 


000010 


037005 


037066 
000010 
043736 
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037005 


037032 


000016 


4$: 


#1, ACTSTR 
R1 
R3 
peer 


2(SP), TIMER(RS) 
2s 


PC,STO 
R1 
(R3)¢ 
#8.,R1 
1$ 


ACTSTR 
($P)+, (SP) 
PC 


;SOFTWAPE TIMEOUT ROUTINE 


‘NOTE: 


CALL: 


STO: 


STO1: 


1$: 


TH 


0 
STO 
MOV 


JSR 
RETURN 


#ORVNUM,R1 
C,ST0 


R1,-(SP) 


RMADR ,R4 
R1,RMCS2(R4) 
0,RD.RM 
(SP)+ 
$102 
DPINT(R1) 
STO 
DPRQS(R1) 
$T02 
TRNSWT ,R2 
1,D07TUW 


PC, ,GETREQ 

#B1115'B1109,16¢ 
»SVRH70 

#CLR,RACS2(R4) 


DRVACT(R1) 
ULDFLG(R1) 
TRNSWT 
#-1,0TUW 
$109 


sSET "‘ACTSTR’ 
;SAVE RO = RS 
START WITH DRIVE 0 


71S THE TIMER RUNNING? 
;BR IF NO 


COUNT THE INTERVAL 

;BR IF NO SOFTWARE TIMEOUT 
CALL SOFTWARE TIMEOUT ROUTINE 
:MOVE TO NEXT DRIVE 


;OUT OF DRIVES? 
;BR IF NO 
;RESTORE RO 


- R5 
ZERO ACTIVE SOFTWARE TIMEOUT ROUTINE FLAG 
am pte THE STACK 
; N 


1S ROUTINE MUST BE ENTERED AT PRIORITY 6 
R GREATER 


DRIVE NUMBER 
7 CALL 


;SAVE R1 

SAVE R2 

SAVE R3 

7SAVE RG 

;GET ADDRESS OF ‘‘RMCS1"’ 
sSELECT THE DRIVE 

READ ‘DRIVE STATUS REG" 


71S ‘‘DRY'’=1? 

:BR IF YES 

rove ae INTIALIZE THE DRIVE ? 
ZOUTSTANDING PORT REQUEST FOR THE DRIVE ? 
;BR IF YES 


PICKUP TRANSFER WAIT QUEUE 

; TRANSFER UNDERWAY ON THIS DRIVE? 
:BR IF YES 

:1F NOT DON’T BOTHER DRIVES 
;GET DPB ADDRES 

R2) SET THE ERROR FLAGS 
SAVE RH/RM REGISTERS 
;INIT' THE MASS BUS 

DRIVE IS IDLE 

CLEAR THE UNLOAD FLAG 
CLEAR DPB ADDRESS 

;CLEAR THE TRANSFER DRIVE # 
;DON'T BOTHER OTHER DRIVES 


SEQ 0171 
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CZRMVAO RMOS/3/2 EXT'D DR TST 

eran DRIVER INITIALIZATION CODE SEQ 0172 
1068 544 116405 16 $102:  MOVB RMAS(RG) RS ;READ ATTENTION REG 
1069 8 550 136105 ate 8118 ATABIT CRED, RS 1S ATTENTION FOR THIS DRIVE UP ? 
1070 043554 001007 : BNE STO YES 
1071 os 278 105761 036760 TSTS DPINT(R1) ‘TRYING TO INTIALIZE THE DRIVE ? 
\07¢ 562 001021 BNE T [BR IF YES = DRIVE NOT ONLINE 
1073 04 268 193781 036770 TSTB DPRQS(R1) ; OUTSTANDING PORT REQUEST FOR THE DRIVE ? 
1074 043570 001035 BNE $107 R If ves NO RESPONSE TO REQUEST 
1075 043572 000454 &R $109 ‘OTHER WISE EXIT 
1076 043574 105761 036760 $103: TSTB DPINT(R1) HINITIALLEING Lis DRIVE ? 
1077 043600 001003 BNE 1$ R IF INIT PENDING 
1078 043602 105761 036770 TSTB DPRQS(R1) ‘BOR! REQUEST. PENDING ? 
1079 043606 aie BEQ T ‘BR IF N 
1080 063610 012763 177777 037032 1%: MOV #-1, TIMER(R3) ; STOP A TIMER 
1081 043616 900442 BR $109 XI 
108 pe eese 004737 041326 S105: JSR PC,CI8 60 HANDLE THE PARITY ERROR 
1083 043624 000437 BR $109 
1084 geaees 105061 036760 ST06:  CLRB DPINT(R1) ;CLEAR THE INITIALIZE INDICATOR 
1085 Ree 105061 036740 CLRB DRVSTA(R1) :SET UNIT OFFLINE 
1086 043636 o12763 177777 037032 MOV #-1,TIMER(R3) STOP THE TIMER 
1087 043644 004737 045144 JSR PC ,GETREQ [GET THE DPB ADDRESS 
1088 043650 005702 TST R2 sREQUEST IN QUEUE ? 
1089 043652 001424 BEQ $109 R IF NOT 
1090 043654 052762 140000 000016 BIS #BITIS'BIT14, r6ch2) y INFORM THE USER DRIVE NOT AVAILABLE 
1091 043662 000414 Ap $108 NISH 
34 043664 012763 177777 037032 ST07: MOV #-1, TIMER(R3) Stor THE TIME 
1093 043672 105061 036770 CLRB DPROS(R1) [CLEAR PORT REQUEST INDICATOR 
1094 043676 004737 045144 JSR PC,GETREQ GET DPB ADDRESS 
1095 ok {453 883/88 TST a sQUEUE ENTRY FOR DRIVE ? 
1096 7 140 BEQ $109 “BR IF NON 
1097 043706 012762 100004 000016 MOV #81115: B112, 16(R2) : INFORM USER OF vont REQUEST ERROR 
1098 043714 004737 045050 STO8: JSR PC, EMP SCLEAR THE QUEUE FOR THE DRIVE 
1099 043720 004737 044310 JSR PC, EURAyO [SAVE THE REGISTERS 
1100 043724 012604 STO9: MOV (SP)+,R4 *RESTORE R4 
1101 043726 012603 MOV (SP)+,R3 sRESTORE R3 
1102 043730 012602 MOV (SP)+,R2 sRESTORE R2 
1103 043732 012601 MOV (SP)+.R1 she stone R1 
1138 043734 000207 RTS Pp ;RETURN 
1108 ;ROUTINE TO READ A RH/RM REGISTER 
1108 CALL 
1109 : JSR RO,RD.RM :G0 READ A REGISTER 
1110 ; INDEX :REG. INDEX FROM BASE 
111? ; ERRADR TERROR ADDRESS--PROCESS ERROR STARTING 
1112 ; sAT THIS ADDRESS 
A113 : RETURN [CONTENTS OF REG. IS ON THE STACK 
1115 043736 013737 037064 044104 RD.RM: MOV MCPERK RD.RM2 ;MAX. RETRYS ALLOWED 
1116 043744 011646 MOV (SP) ,-(SP) 7SAVE RO FOR RETURN 
1117 043746 013737 037066 043762 MOV RMADR,RD.ADR 7FORM THE DESIRED ADDRESS 
1118 043754 066037 043762 ADD (RO)+,RD.ADR [USING THE BASE AND THE INDEX 
1119 043760 013727 RD.RM1: MOV a(Pc)+, (PC)+ ;READ THE DESIRED REGISTER OF THE RM DRIVE 
1120 043762 RD.ADR: .WORD 0 [ADDRESS 1S FORMED HERE 
1121 063764 00 RD.WRD: .WORD 0 sREG. CONTENTS PUT HERE 
1122 0437 013766 043764 000002 MOV RD.WRD,2(SP) sRETURN IT TO THE USER 
1123 043774 013746 037066 MOV RMADR,-(SP) ;PUT THE ADDRESS ON THE STACK 
1124 044000 062716 000010 ADD #RMCS2, (SP) sFORM THE ADDRESS OF RMCS2 
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CZRMVAO RMOS/3/2 EXT'’D 
RH/RM DRIVER INITIALIZATION CODE SEQ 0173 
1125 044004 0327 010000 BIT WBIT12,a(SP)*  ;CHECK THE ‘NED’ BIT 
1126 044010 a0%08) BNE RD. RMS BR IF DRIVE NON-EXISTENT 
1127 044012 17746 173050 MOV @RMADR,-(SP) ;READ RMCS1 
1128 ore th 032716 020000 BIT #81113, (SP) DID MCPE SET? 
H+ 04402 89 1006 BNE 1$ sBR IF YES 
1130 044024 Bss0e CMP (SP)+,(RO)+ ;ADJUST FOR RETURN 
1131 ory), 0004 32 BR RD.RMG sEXIT 
1132 0440 1$: 
044030 004037 045234 JSR RO,ES.SAV SAVE THE ADDRESS IN ‘SESCAPE* 
044034 104003 EMT 3 REPORT ‘MCPE'' ERROR 
1133 044036 005737 037052 TST DTUW ;DATA TRANSFER UNDERWAY? 
1134 0440462 100405 BM] 2s 3NO 
1135 044044 032716 040000 BIT #B1114,(SP) :“TRE'' = 1? 
1136 044050 001402 BEQ 2$ 7NO 
1137 044052 005726 TST (SP)¢ sYES=-CLEAN OFF THE STACK AND 
1138 044054 000415 BR RD. RMS TAKE THE FATAL ERROR EXIT 
1139 044056 052716 040000 28: BIS #B1T14, (SP) ;CLEAR ‘MCPE'’ BY SENDING A ‘'l'' TO ‘‘TRE’’ 
1140 044062 000316 SWAB (SP) POSITION BEFORE WRITING 
1141 064 013737 037066 044100 MOV RMADR, 3% FORM ADDRESS OF HIGH BYTE 
1142 064072 005237 044100 INC 3$ 
1143 044076 112637 MOVB (SP)+,a(PC)+ ;WRITE THE HIGH BYTE OF RMCS1 
1144 044100 000000 3$: «WORD 0 ADDRESS STORAGE 
1145 044102 005327 DEC (PC)+ sEXCEEDED MAX. RETRYS 
1146 044104 000003 RD.RM2: .WORD 3 
1147 064106 002324 BGE RD.RM1 ;BR IF NO 
1148 044110 011000 RD.RM3: MOV (RO) ,RO FATAL ERROR EXIT 
1149 044112 012616 MOV (SP)+, (SP) 
Ts 044114 000200 RD.RMG: RTS RO 
4136 ROUTINE TO WRITE A REGISTER 
1154 3 CALL 
1155 : MOV DATA,-(SP) DATA TO BE LOADED ON THE STACK 
1156 ; JSR RO,WRT.RM ;CALL THE ROUTINE TO LOAD(WRITE) THE REG. 
1157 3 INDEX INDEX OF THE REGISTER TO BE LOADED 
1158 : ERRADR ;ADDRESS TO RETURN TO ON AN ERROR 
tbe : RETURN ERROR FREE RETURN 
1161 044116 013737 037064 044274 WRT.RM: MOV MCPEMX,WRT.R2  ;MAX RETRYS ALLOWED 
1162 044124 016637 000002 044204 MOV 2(SP),WRT.WD ;SAVE THE WORD TO WRITE 
1163 044132 012616 MOV (SP)+, (SP) sADJUST THE STACK 
1164 044134 012037 044206 MOV (RO)+,WRT.AD ;GET INDEX OF REGISTER TO BE WRITTEN 
1165 044140 001015 BNE 1$ :BR IF NOT RMCS1 
1166 044142 122737 000150 044204 CMPB #150,WRT.WD :1S THE COMMAND FOR DATA TRANSFERS? 
1167 044150 0024611 BLT 1$ 7 YES--DON'T GET THE OLD Al6 & Al7, & PSEL 
1168 044152 004037 043736 JSR RO,RD.RM ;NO=--COMBINE A168A17, & PSEL WITH 
1169 044156 000000 RMCS1 ;THE COMMAND BEFORE SENDING IT TO 
1170 044160 044300 WRT .R3 ; THE RH/RM 
1171 044162 000316 SWAB (SP) 
1178 aes ise Mer 16 177770 BIC #*C7, (SP) 
1173 044170 Megs 044205 MOVB (SP)+,WRT.WD+1 
1174 064174 063737 037066 044206 1$: ADD RMADR ,WRT.AD FORM THE ADDRESS OF THE DISK REG. 
1175 044202 012737 WRT.R1: MOV (PC)+,a(PC)+ LOAD THE DESIRED REG. 
1176 044204 000000 WRT.WD: .WORD 0 sWORD TO WRITE GOES HERE 
1177 0442 000v00 WRT.AD: .WORD 0 ADDRESS IS FORMED HERE 
1178 ort 013746 037066 MOV RMADR,-(SP) ;PUT THE ADDRESS ON THE STACK 
1179 044214 062716 000010 ADD #RMCS2, (SP) FORM THE ADDRESS OF RMCS2 
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RH/RM DRIVER INITIALIZATION CODE SEQ 0174 
1180 044220 052736 010000 BIT #BIT12,a(SP)*  ;CHECK THE ‘NED’ BIT 
1181 044224 0010 BNE WRT.RS :BR IF DRIVE NON-EXISTENT 
1182 044226 006037 043736 JSR RO,RD.RM “CHECK FOR PARITY ERROR ON WRITE 
1183 044232 14 RMER1 
1184 044 044300 WRT .R3 
1185 044 032726 000010 BIT #B1T03,(SP)+ 
1186 044624 901420 BEQ WRT .R4 :BR IF ‘'PAR=0"' 
1187 0646264 016037 177776 044256 MOV -2(R0), 18% :PICKUP THE INDEX 
1188 044252 0046037 043736 JSR RO,RD.RM ;READ THE REG. 
1189 044256 000000 1$: WO 0 sREG. INDEX 
1190 044260 044300 WRT .R3 [RETURN TO THIS ADDRESS ON ERROR 
1191 066262 004037 045234 JSR RO,ES.SAV 7SAVE THE ADDRESS IN ‘SESCAPE' 
044266 104004 EMT 4 :REPORT THE PARITY ON WRITE ERROR 
1192 044270 005726 TST (SP)¢ *CLEAR OFF THE STACK 
1193 044272 005327 DEC (PC)+ :DECREMENT THE ERROR COUNT 
1194 044274 000003 WRT.R2: .WORD 3 [RETRY COUNTER 
1195 044276 002341 BGE WRT.R1 [TRY AGAIN IF NOT FINISHED 
1196 044300 011000 WRT.R3: MOV (RO) ,RO [TAKE THE "PARITY ON WRITE'’ ERROR EXIT 
1197 044302 000401 BR WRT RS TEXIT 
1198 044304 005720 WRT.RG: TST (RO)+ SADJUST FOR ERROR FREE EXIT 
1199 044306 000200 WRT.RS: RTS RO 
1201 ;ROUTINE TO SAVE THE RH/RM REGISTERS AS PER DPB+14 
1203 CALL 
1204 : MOV #DPBNUM, R2 :DPB POINTER TO R2 
1205 : JSR PC, SVRH70 :SAVE THE DRIVES REG'S 
1207 044310 1046412 SVRH70: SAVREG sSAVE RO - RS 
1208 044312 005702 TST R2 [QUEUE ENTRY FOR THE DRIVE ? 
1209 044314 0901442 BEQ 6$ :BR IF NONE 
1210 044316 013704 037066 MOV RMADR RG 
1211 044322 111264 000010 MOVB (R2),RMCS2(R4) ;SELECT DRIVE 
1212 044326 016203 000014 MOV 14(R2),R3 “GET THE ERROR TABLE POINTER 
1213 044332 001433 BEQ 6$ SEXIT IF NO ADDRESS 
1214 044334 005037 044370 CLR 3$ :COUNTER & POINTER 
1215 044340 023727 044370 000022 15: CMP 3$, #RMDB *REACHED THE BUFFER REGISTER ? 
1216 044346 001006 BNE 7BR IF NOT 
1217 044350 032764 000200 000010 B11 #B1TO7,RMCS2(R4) :"OR' SET ? 
1218 044356 001002 BNE 2$ :BR IF SET 
1219 044360 005023 CLR (R3)¢4 :STORE RMDB AS ZEROES 
1220 044362 000405 BR 4% : CONTINUE 
1221 064364 004037 043736 2$: JSR RO,RD.RM [READ THE SELECTED REGISTER 
1222 044370 000000 3$: “WORD 0 SREGISTER INDEX 
1223 044372 044416 5$ TERROR RETURN ADDRESS 
1224 044374 012623 MOV (SP)+,(R3)¢4 [STORE THE REGISTER CONTENTS 
1225 044376 023727 044370 0000466 4%: CMP 3$, #RMEC2 [REACHED THE END ? 
1226 044404 001406 BEQ 6$ ‘BR IF YES 
1227 044406 062737 000002 044370 ADD #2,38 SINCREMENT THE REGISTER INDEX 
1228 044414 000751 BR :CONTINUE READING THE REGISTERS 
1229 044416 004737 041226 5$: JSR PC,CI7 *PROCESS THe UNCORRECTABLE PARITY ERROR 
1230 044422 1046413 6$: RESREG *RESTORE RO - RS 
1231 044424 000207 RTS PC [RETURN 
1238 : ROUT INE TO SET THE INTERRUPT WITHOUT GETTING A "TRE" 
7 CALL 
1235 : MOV #ORVNUM,R1 sDRIVE NUMBER TO R1 
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000010 


; JSR PC,SET.IE 
5 RETURN 
SET.IE: MOV R4,- (SP) 
MOV RMADR, RG 
MOV R1 /RMCS2(R4) 
MOV ( ri) -(SP) 
BIS wBitis, (SP) 
SWAB 
MOVB £81106, 
BIT #B1lT12, *AMCS2(RG) 
BNE 1$ 
TST (SP)+ 
BR $ 
1$: MOVB (SP)4,10R4) 
23: MOV (SP)+,R4 
RTS PC 
QUEUE COUNT 
3 BYTE 0 
-BYTE QO 
BYTE 0 
-BYTE O 
-BYTE 0O 
-BYTE 0 
QUEUE INPUT POINTERS 
QINPT: WORD QDRVO 
WORD QDRvV1 
WORD QDRV2 
. WORD QoRV3S 
» WORD QDRV4 
. WORD QDRVS 
. WORD QDRV6 
. WORD QDRV7 
;QUEUVE OUTPUT POINTERS 
QOUTPT: .WORD QDRVO 
~ WORD QORV1 
WORD QDRvV2 
. WORD QDRv3 
WORD QDRV4 
. WORD QORVS 
. WORD QDRV6 
WORD QDRv?7 
QSTART: .WORD QDRVO 
QSTOP: .WORD QDRV1 
WORD QDRV2 
WORD QdRVS 
. WORD QDRV4 
WORD QDRVS 
. WORD QDRV6 


SEQ 0175 
sseT “1e" 


SAVE RS 
‘PICKUP ADDRESS OF RMCS1 
7 SELECT r iV E 

[READ RMC 

SET THE “SRE” BIT OF THE WORD READ 
ADJUST FOR DATO 


31S ‘'NED''=1? 
;YES=-CLEAR ‘'TRE 
CLEAN OFF THE Crack 


CLEAR "TRE" 
RESTORE RG 
RETURN TO CALLER 
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TART ADDRESS 
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H 14 
MACRO VO3.01 11-APR-80 15:01:20 PAGE 15-23 


~ WORD QDRvV7 ;STOP DRIVE 6--START DRIVE 7” 
~ WORD QTERM ;STOP DRIVE 7 
sDRIVE REQUEST QUEUES 
QDRVO: .BLKW 10 
QDRV1: .BLKW 10 
QDRV2: .BLKW 10 
QDRV3: .BLKW 10 
QDRV4: .BLKW 10 
QDRVS: .BLKW 10 
QDRV6: .BLKW 10 
QORV7: .BLKW 10 
QTERM= 
;ROUTINE TO CLEAR ALL OF THE REQUEST QUEUES 
CALL 
3 JSR PC, CLRQUE 
CLRQUE: SAVREG sSAVE RO = RS 
MOV WQCNT R22 ;ZERO THE QUEUE COUNTS 
CLR (R2)¢ ;DRIVES 0 & 1 
CLR (R2)+ sDRIVES 2 & 3 
CLR (R2)+ sDRIVES 4 @ 5 
CLR (R2)+ sDRIVES 6 & 7 
MOV #8. R35 s;MOVE THE STARTING 
MOV #QSTART,R1 ;ADDRESS OF THE QUEUE INTO 
1$: MOV (R1)4#,(R2)+ ; THE QUEUE INPUT POINTER 
DEC Be) 
BNE 1$ 
MOV #8.,R3 s;MOVE THE STARTING ADDRESS 
MOV #OSTART,RI1 7OF THE QUEUE INTO THE 
2s: MOV (R1)4#,(R2)¢ “QUEUE OUTPUT POINTER 
DEC R3 
BNE 2$ 
RESREG sRESTORE RO =- RS 
RTS PC 
;EMPTY THE QUEUE SPECIFIED BY R1 
‘CALL 
PF MOV DRVNUM,R1 :;DRIVE NUMBER TO R1 
: JSR PC,EMPTYQ 
EMPTYQ: ag al ;CLEAR NUMBER OF ITEMS IN QUEUE 
L 
mov QINPT(RI) ,QOUTPT (RI) :SET OUTPUT QUEUE POINTER=INPUT POINTER 
A 
RTS PC 
;ROUTINE TO PUT A REQUEST IN QUEUE 
CALL 
: MOV #ORVNUM,R1 ;DRIVE NUMBER 


: MOV #DPB,R2 ADDRESS OF PARAMETER BLOCK 
: JSR RO,DRVQUE :G0 PUT REQUEST IN QUEUE 


SEQ 0176 
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RH/RM DRIVER INITIALIZATION CODE SEQ 0177 
1350 : RETURN RETURN HERE IF QUEUE IS FULL 
$32) : RETURN2 RETURN HERE IF REQUEST IS IN QUEUE 
1388 045070 122761 000010 044500 DRvVQUE: CMPB #10, QCNT(R1) 31S QUEVE FULL? 
1354 045076 001421 BEQ 2$ 7BR IF YES-TAKE RETURN1 
1355 045100 105961 044500 INCB QCNT(R1) s INCREMENT QUEUE COUNT 
1356 045104 006301 ASL R1 
1357 045106 010271 044510 MOV R2,@QINPT(R1)  ;PUT THIS REQUEST IN QUEUE 
1358 045112 062761 000002 044510 ADD #2,QINPT(R1) ;UPDATE THE QUEUE POINTER 
1359 045120 026161 044510 044552 CMP QINPT(R1),QSTOP(R1) sTIME TO RESET THE POINTER 
1360 045126 001003 BNE 1$ : FN 
1361 045130 016161 044550 044510 MOV QSTART(R1) ,QINPT(R1) 7YES=-RESET POINTER 
1362 045136 006201 1$: ASR R1 
1363 045140 005720 TST (RO)+ ;TAKE RETURN 2 
fre 045142 000200 2$: RTS RO RETURN TO USER 
308 ROUTINE TO GET THE ‘'DPB'’ ADDRESS OF NEXT REQUEST IN QUEUE 
1368 > CALL 
1369 : MOV #DRVNUM,R1 DRIVE NUMBER TO R1 
1370 : JSR PC ,GETREQ :GO GET THE REQUEST 
1371 : RE TURN ;R2="'DPB'' ADDRESS OF THE REQUEST 
137¢ : ;R2=0 IF NO REQUEST IN QUEUE 
1374 045144 005002 GETREQ: CLR R2 
1375 045146 105761 044500 TSTB QCNT(R1) 31S THERE ANY REQUEST IN QUEUE? 
1376 045152 001404 BEQ 2$ 7NO 
1377 045154 006301 1$: ASL R} 
1378 045156 017102 044530 MOV @QOUTPT(R1),R2 ;PICKUP ‘DPB’ POINTER FOR THIS DRIVE 
1379 045162 006201 ASR R1 
1380 045164 000207 2$: RTS PC RETURN TO USER 
seat ;ROUTINE TO ‘'POP’’ THE REQUEST FROM QUEUE 
1384 CALL 
1385 : MOV #DRVNUM,R1 ;DRIVE NUMBER 70 R1 
1386 : JSR PC ,POPQUE ;CALL TO REMOVE REQUEST 
4ot4 : RETURN ;R2=ADDRESS OF DPB REMOVED 
1389 045166 °45361 044500 POPQUE: DECB QCNT(R1) ;DECREMENT QUEUE COUNT 
1390 045172 964,251 ASL R1 
1391 065176 O37°52 064530 MOV @QOUTPT(R1),R2 ;GET THE ‘‘DPB’’ POINTER 
1392 045200 O05? 044530 CLR @QOUTPT(R1) REMOVE DPB ADDRESS FROM THE QUEUE 
1393 045204 0627%' 900002 044530 ADD #2,QOUTPT(R1)  ;UPDATE THE QUEUE POINTER 
1394 045212 026'% 44530 044552 CMP QOUTPT(R1) ,QSTOP(R1) : TIME TO RESET THE POINTER? 
1395 045220 00104: BNE 1$ :NO--BR TO EXIT 
1396 045222 01616' ‘44550 044530 MOV QSTART(R1),QOUTPT(R1)  ;YES=-RESET THE POINTER 
1397 045230 00620° 1$: ASR R1 
4 045232 000207 RTS PC RETURN TO USER 
1401 ROUTINE TO SAVE THE CONTENTS OF ‘SESCAPE’ WHEN THE DRIVER 
1402 :REPORTS AN ERROR DIRECTLY. 
1403 F 
1404 7 CALL 
1405 2 JSR RO,ES.SAV 
1406 ; ERROR N >; THE ERROR CALL 
1407 : RETURN THE RETURN IS PAST THE ERROR CALL 
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1408 

1409 0452 012037 045250 ES.SAV: MOV (RO)+,1% ;GET THE ERROR CALL 

1410 0452460 013746 001222 MOV SESCAPE,-(SP)  ;SAVE THE ADDRESS IN ‘SESCAPE" 
1411 0452464 005037 001222 CLR SESCAPE ;CLEAR THE ESCAPE RETURN 

1412 045250 000000 1$: -WORD 0 ;THE ERROR CALL IS MOVED HERE 
1413 045252 012637 001222 MOV (SP)*,S$ESCAPE  ;RESTORE THE ESCAPE ADDRESS 

ot es 045256 000200 RTS RO ;RETURN 


SEQ 0178 


C2 
Ee 


RMVAO RMO5/3/2 EXT'D DR TST 
GETADR - GET BUS ADDRESS AND VECTOR ADDRESS 


~SBTTL GETADR - GET BUS ADDRESS AND VECTOR ADDRESS 
;THIS ROUTINE IS USED TO ENSURE THE BUS ADDRESS 

;OF THE RH/RM IS SETUP TO READ THE PROPER VALUE. 
eit ALSO READ THE ADDRESS FROM THE TTY IF 


sREQUIRED. 
NOTE: THIS ROUTINE DESTROYS RO-R4 
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3 CALL 


GETADR: 


1$: 


2$: 


3$: 


6$: 


MRMCS1: 
MRMVEC: 


JSR 
RETURN 
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PC,GETADR 


BUSADR 
5$ 


BUSADR 
#RH.ADR,RO 
#MRMCS1,R3 
(RO) ,R4 
—_—— 


R4,(RO)+ 
#MRMVEC,RS 
(RO 


RO,GETNUM 
3$ 


1$ 

4% 
R4,(RO)+ 
R4, (RO) 
ERRVEC,R1 
#6$,ERRVEC 


#RMADR,R1 
(RO)+, (RI)4 
(RO) +, (R14 


Pp 
R1,ERRVEC 
(SP)+,(SP)+ 
10 

aad2 

1$ 

DRVSEL 


SEOPCT 
SEOP 


eASCIZ = <CRLF>/RMCS1=/ 


-ASCIZ 


<CRLF>/RMVEC 


/ 


4 
6 


; INPUT FROM TTY REQUESTED? 


;NO--BRANCH 


:YES=--CLEAR T 
sFIRST ADDRES 
;"'RMCS1="' 


- REQUEST FLAG 


:PRESENT RMCS1 ADDRESS 


GET NEW RMCS 
; COMMA 


:PERIOD 


1 


;DOUBLE PERIOD 
;SAVE NEW RMCS1 
:""RMVEC="' 


[PRESENT RH/RM VECTOR ADDRESS 
[GET NEW RMVEC 
: COMMA 


PERIOD 
:DOUBLE PERIOD 
: SAVE NEW RMVEC 
'SAVE THE ERROR VECTOR 


;SETUP FOR T 


RAP 


CHECK FOR RH/RM 
s;RESTORE ERROR VECTOR 


FIRST ADDRESS OF NEW PARAMETERS 
sFIRST +5 ae OF WHERE TO PUT THEM 


;BuS 


US ADDRESS 
;VECTOR ADDRESS 
; RETURN 


‘RESTORE ERROR VECTOR 
[CLEAN OFF THE STACK 


31S THERE A MONITOR? 
;NO--GO ASK FOR ADDRESS 
:YES--NO DRIVES SELECTED 


NO PASSES 


:GO TO END OF PROGRAM 


SEQ 0179 


CZRMVAO RMO5/3/2 EXT'D DR TST 
DPB (DATA PARAMETER BLOCKS) 


1 
2 
3 045456 


F 045476 


WRIPIPINIPU NINO NONODR — ss 
DONO ULSWN —OVDOOnGUFwn—O”Oo 


3 045504 
34 045506 
36 045507 
37 


38 045510 
39 045512 


45 045514 


000000 
052776 


000 
000 


000000 
045556 


000000 


77776 
52776 


000 
000 


000000 
045556 


1 
0 


000000 


MACRO VO03.01 11-APR-80 15:01:20 PAG 


-SBTTL DPB (DATA PARAMETER BLOCKS) 


DPB.A: 


DPB.B: 


DPB.C: 


-BYTE 


. WORD 


-BYTE 
.B 


. WORD 


-BYTE 
-BYTE 


0 


Q 
0 
0 
0 
BUFFER 
0 
0 
0 
R 


M.REG 


UFFER 


o oO Wioo°oo 
Mm 


0 
RM.REG 


0 
0 
0 
0 
B 


2 
UFFER 


RIVE NUMBER 
FFS 4 VALUE OR FMT16, ECI, AND HCI 
SEL 


SECTOR ADDRESS OR 

REG. INDEX 

TRACK ADDRESS OR 
DEX 


DER ADDRESS 
ERROR TABLE POINTER 
TS TO THE FIRST OF TWENTY 
: LOCATIONS OF WHERE THE DRIVER 
:1S TO STORE THE RH/RM 
REGISTERS ON AN ERROR. IF LEFT 
+ ZERO REGISTERS ARE NOT SAVED. 
TATUS/ERROR INDICATOR 
1= timmy GCCURRED 


=>DONE 
B1T09 AND B1106-B1103 
TE TYPE OF ERROR 


IVE NUMBER 
Abt VALUE OR FMT16, ECI, AND HCI 


z= eLaae 
o— 


Ses oOfnuM 


T 

- 

NTS TO THE FIRST OF TWENTY 
ATIONS OF WHERE THE DRIVER 
TO STORE THE RH/RM 

Hi ON AN ERROR. IF vee 
) 

1 

0 

1 

I 


=>DONE 

1109 AND B1106-B1T03 
E TYPE OF ERROR 
Vv 


NUMBER 
OFFSET VALUE OR FMT16, ECI, AND HCI 
PSEL AND Al? AND Al6 
WORD COUNT (MUST BE NEG.) 
BUFFER ADDRESS OR 
ISTER TABLE POINTER 


SEQ 0180 





rs 045526 
7 045527 


6 
62 045530 
63 045532 


79 045542 
80 045544 


82 045546 
84 045547 


86 045550 
87 045552 


93 045554 
Gs 
95 


So 
=~ 
w 
wn 
o 


RRRRRRRRREL E 
SOAAAVIMH 


FUN=SSBVE RR AW “SOLE 
SRNVSSRNSS SF 


mk tk es a ss ss Yt os Ht 


oS 
= 
—— 
o 


CZRMVAO RMOS/3/2 EXT'D DR TST 
DPB (DATA PARAMETER BLOCKS) 


000 
000 


000000 
045556 


000000 


0 
000000 
052776 


000 
000 


000000 
045556 


000000 


000000 


000000 


14 


M 
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DTADPB: 


-BYTE 


«WORD 
«WORD 


- WORD 


-BYTE 
-BYTE 


«WORD 


RM.REG 


UFFER 


ao oOo oO Woooe°coe 


M.REG 


ECTOR ADDRESS OR 
G. INDEX 

ra. ADDRESS OR 

YLINDER ADDRESS 


>d0 
1709 AND B1106-B1T03 
E TYPE OF ERROR 


7 
FI 
741 
7LA 
741 
741 
;PO 
:LO 
71S 
;RE 
:ZE 
741 
;B1 
:BI 
7B1 
> IN 
700 
71 
3 (2) 


ww ouw4o4 4 OWwa Oe ERIN — DO 


IVE NUMBER 
tae OR FMT16, ECT, AND HCI 


;(3) PSEL AND A17 AND Al6 
;(4) WORD COUNT eto _ NEG.) 
: (6) BUFFER ADDRESS 0 
ISTER TABLE POINTER 
) ae ADDRESS OR 
T REG. INDEX 
) TRACK ADDRESS OR 
T REG. INDEX 
) CYLINDER ADDRESS 
) ERROR TABLE POINTER 
NTS TO THE FIRST OF TWENTY 
ATIONS OF WHERE = DRIVER 
TO STORE THE RH/RM 
ISTERS ON AN ERROR. IF LEFT 
O REGISTERS ARE NOT SAVED. 
) STATUS/ERROR INDICATOR 
t oy OCCURRED 
1 
1 


= >DONE 
1109 AND B1T06-B1T03 
E TYPE OF ERROR 


Sete Se Be Se Be Se Be Se Be Se Ge Se Ge Be Be Be Be Be Se Se Se Be 


rinnuwnw 


T 
1 
1=> 
B 
T 


SAVE RH/RM REGISTERS HERE ON ERROR 


RM.REG: 


- WORD 


lolol eleleleleleleleolelelol—q) 


sRMCS1 (776700) CONTROL . STATUS #1 
sRMWC (776702) WORD han! 
:RMBA (776704) ae ADDR 


:RMDA_(776706) IRED SECTOR/ TRACK 
sRMCS2 (776710) Jing & STATUS #2 
sRMDS (776712) DISK STATUS 

sRMER1 (776714) ERROR REG. #1 

sRMAS (776716) ATTENTION SUMMARY 
sRMLA (776720) eee AH rit 

sRMDB (776722) DATA BUFFER 

sRMMR1 (776724) yt pt 
sRMDT (776726) DRIVE TYPE: 

sRMSN (776730) SERIAL NUMBER 

sRMOF (776732) OFFSET 











~ CZRMVAO_RMO5S/3/2 EXT'D DR TST 
| DPB (DATA PARAMETER BLOCKS) 


115 045612 000000 
045614 0 


045624 000000 


ss ss 


MN ae 
NO OCOne 
oo 
~ 
www 
oon 
mnr— 

~ 
oS 
So 
oS 
oS 
So 
oS 


-EVEN 


ooooo°o 
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sRMDC (776734) DESIRED CYLINDER 
sRMHR (776736) CURRENT CYLINDER 
sRMMR2 (776740) ERROR REG #2 
sRMER2 (776742) ERROR REG #3 
sRMEC1 (776744) ECC POSI710N 
sRMEC2 (776746) ECC PATTERN 


SEQ 0182 


| CZRRVAO srt fe EXT'D DR TST MACRO VO3.91 11-APR-80 15:01:20 PAG 


E | 
_ASCIZ MESSAG 


5 
8 
SEQ 0183 


1 -SBTTL ASCIZ MESSAGES 
; Oe 20¢8 122 000 MSG.R: .ASCIZ /R/ 
4 0456 1% 103 000 MSG.FC: .ASCIZ /FC/ 
5 045633 114 103 000 MSG.LC: .ASCIZ /LC/ 
6 045636 111 103 000 MSG.IC: .ASCIZ /IC/ 
7 045641 106 124 000 MSG.FT: .ASCIZ /FT/ 
8 045644 114 124 000 MSG.LT: .ASCIZ /LT/ 
9 045647 111 124 000 MSG.IT: .ASCIZ /I1T/ 
10 045652 106 124 047 MES.FT ASCIZ /FT'/ 
11 045656 114 124 047 MES.LT: .ASCIZ /LT'/ 
12 045662 111 124 047 MES.IT: .ASCIZ /I1T'/ 
13 045666 106 123 000 MSG.FS: .ASCIZ /FS/ 
14 045671 114 123 000 MSG.LS: .ASCIZ /LS/ 
15 045674 120 101 124 MSG.PAT:.ASCIZ /PAT/ 
16 045700 075 000 MSG.EQ: .ASCIZ /=/ 
4 045702 200 103 117 MSG.CS: .ASCIZ <CRLF>/CONTROL SWITCHES=/ 
19 045725 040 057 040 SLASH: .ASCIZ @/ 428 
20 045731 200 125 116 UNSTAT: .ASCIZ <CRLF>/UNIT STATUS:/ 
21 045747 040 117 106 UNTOFF: .ASCIZ / OFFLINE/ 
22 045760 040 117 116 TON: .ASCIZ / ONLINE/ 
23 045770 040 116 117 NOTPRS: .ASCIZ / NOT PRESENT/ 
24 046005 040 125 116 NOTSAF: .ASCIZ / UNSAFE/ 
25 046015 040 116 117 TRM: .ASCIZ @ NOT AN RMOS/3/2a 
26 046036 040 111 123 LODEV: .ASCIZ / IS LOAD DEVICE/ 
27 046056 122 115 060 M02: .ASCIZ /RMO2/ 
28 046063 122 115 060 M03: - .ASCIZ /RMO3/ 
29 046070 122 115 060 $RMOS: .ASCIZ /RMOS/ 
30 046075 200 104 122 DRIVES: .ASCIZ <CRLF>/DRIVE(S) TO BE TESTED / 
31 046125 116 117 116 NONE: ASCIZ /NONE/ 
046132 054 040 000 COMMA: .ASCIZ /, 
33 046135 200 116 117 NOCLOK: .ASCIZ <CRLF>/NO KW11-P CLOCK, TIMING TESTS WILL NOT BE PERFORMED/ 
34 046222 200 012 124 TSTDRV: .ASCIZ <CRLF><LF>/TESTING DRIVE/ 
35 046242 15 102 101 SERIAL: .ASCIZ /MBA SN# / 
3 046253 200 124 105 MSGTST: .ASCIZ <CRLF>/TEST/ 
38 046261 200 012 122 ROTATE: .ASCIZ <CRLF><LF>/ROTATIONAL SPEED TIMES/ 
39 046312 200 012 117 ONECYL: .ASCIZ <CRLF><LF>/ONE CYLINDER SEEK TIMES/<CRLF>/ * FORWARD/ 
40 046357 200 012 101 ACCESS: .ASCIZ <CRLF><LF>/ACCESS TIME MEASUREMENT/<CRLF>/ * FORWARD/ 
1 046424 200 012 115 MXSEEK: .ASCII] <CRLF><LF>/MAXIMUM SEEK TIMES/ 
42 046450 200 040 052 FWD: ASCIZ <CRLF>/ * FORWARD/ 
rF 046464 200 040 052 REV: ASCIZ <CRLF>/ * REVERSE/ 
45 046500 200 115 111 MSGMIN: .ASCIZ <CRLF>/MIN=/ 
46 046506 200 115 101 MSGMAX: .ASCIZ <CRLF>/MAX=/ 
47 046514 200 101 126 MSGAVG: .ASCIZ <CRLF>/AVG=/ 
48 046522 060 040 125 mSGOUS: .ASCIZ /0 US/ 
49 046527 040 102 105 MBELOW: .ASCIZ / BELGW THE MINIMUM OF / 
50 046556 040 101 102 MASOVE: .ASCIZ / ABOVE THE MAXIMUM OF / 
1 046605 040 123 105 MSG;EA: .ASCIZ / SEARCHES TIMED/ 
52 046625 040 123 105 MSGNUM: .ASCIZ / SEEKS TIMED/ 
53 046642 040 116 117 MS eASCIZ / NOT TIMED/ 
54 046655 040 BLNKS4: .ASCI] / / 
55 046656 v40 BLNKS3: .ASCII / / 
46 046657 040 BLNKS2: .ASCI] / / 
57 046660 040 000 BLNKS1: .ASCIZ / / 


1 
1 


C 15 
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CZRMVAO RMOS/3/2 EXT 


ASCIZ MESSAGES 


SEQ 0184 


4 MSGIIX: 


1§ 
CZRAVAO RMOS/3/2 EXT'D DR TST MACRO VO3.01 11-APR-80 15:01:20 PAGE 19 


ERROR HEADER (EM) MESSAGES SEQ 0185 


+ se 


1 

5 047152 
4 047216 
5 047254 
6 047311 
? 047345 
8 047401 
9 047447 
0 047504 
1 047531 
2 047556 
3 047610 
4 047657 
5 047706 
6 047746 
; 047762 


——* 4 4 + 4 _+» _+4 _+ _» 2 + 5 _+s _» + 
—FNMmeuwuen 


rw w 


a kt et et ot ot 
o-oo = OS YY —- OOO — 
OW FS SS VINO FS OO 


— On a et ss tO os es OC 
MWMON — MINN — MONNOW 
fF NVMUNWS OR NF 


- SBTTL 


ERROR HEADER (EM) MESSAGES 


-ASC 


Ne Ns Ns ee ee eB Be PP 


“AS 


@RH/RA INTERRUPT OCCURRED (RMAS = 0)8 
/UNEXPECTED ATTENTION OCCURRED/ 
/MASSBUS PARITY ERROR(MCPE=1)/ 
/MASSBUS PARITY one gh get 
/ADDRESS PLUG CHANGE BIT SET/ 
@RH/RA FAILED TO RESPOND TO ADDRESSING@ 
Arth.. SELECTED so 7+ ONL INE / 

/ IMPROPER HEADER D 
/DATA COMPARE FAILURE/ 
/DISK ERROR IN TIMING TEST/ 
/CLOCK (KW11-P) 4 gh ng IN TIMING TEST/ 
/DISK ERROR DURING SEEK/ 
/SEEK NOT COMPLETE WITHIN 120 MS/ 
@RH/RM ERRORG 
/FATAL WRITE CHECK ERROR/ 


CZRMVAO RMOS/3/2 ony 


€ 15 
DR TST MACRO VO3.01 11-APR-80 15:01:20 PAGE 20 
STATUS/ERQOR INDICATOR MESSAGES SEQ 0186 


Froese 


jelelefejleleloeleleleleloj—) 
SL 


PP Pett NN ee YY 4 ow 
Pew oounmn 


— 2 oe es ss et ss 
MPN —rnNr— —$ OO0—-oO 


MMA NN NN YOO 
Sua ee eee 


ee i a i 


CVF WN—OOONOUVF Wh 
— = FO 


+ + + ss ss es 


» SBTTL 


STATUS/ERROR INDICATOR MESSAGES 


. 
> 
“ 
aan 
_ 
~ 


BR be be a sb 
Ne PP 


ee 

>> 

vm 
oO 


ODOAIQOAOOAIAOOOLN 


/OFFLINE OR UNSAFE DRIVE REQUESTED/ 
EQUESTED/ 


/SOFTWARE TIMEOUT ON THIS DRIVE/ 
/SOFTWARE TIMEOUT ON ANOTHER DRIVE/ 
"ERROR OCCURRED DURING 1/0 OPERATION'' 
"ERROR OCCURRED DURING NON-1/0 OPERATION" 
/UNSAFE OCCURRED/ 

/AUTOMATIC RECALIBRATE SEQUENCE OCCURRED/ 
/DRIVE HAS NOT RESPONDED TO PORT REQUEST/ 
/DRIVE HAS BECOME NON-EXISTENT/ 


CZRMVAO RMOS/3/2 EXT'D DR TST 
DATA HEADER (DT) MESSAGES 


1 

: 059613 105 122 
4 050630 105 122 
5 050715 124 105 
6 050752 124 105 
7 051021 122 115 
8 051040 104 122 
9 051057 124 105 
10 051146 107 104 
11 051225 107 104 
12 051273 124 105 
13 051370 124 105 
14 051446 107 104 
15 051505 124 105 
16 051572 122 115 
17 051637 124 105 
18 051675 124 105 
19 051762 122 115 
20 052010 122 115 
21 052064 122 115 
22 052112 122 115 
23 
24 
25 


5 
1 


fl 
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-SBTTL DATA HEADER (DT) MESSAGES 


122 DHI: eASCIZ /ERR PC RMAS/ 
122 DH2: eASCIZ /ERR PC DRIVE 
123 DH3: eASCIZ /TEST ERR PC 
123° Dwé: eASCIZ /TEST ERR PC 
103 DH10: eASCIZ /RMCS1 ERR PC/ 
111 DHIT: eASCIZ /ORIVE ERR PC/ 
123° DHI2: eASCIZ /TEST ERR PC 
103 OH12A: .ASCIZ /COCYL GDTRK 
106 DHI3A: .ASCIZ /GDDAT BDDAT 
123. DHI7: ASCIZ TEST ERR PC 
123 a Hf eASCIZ /TEST ERR PC 
104 DH21A: .ASCIZ /GDDAT BODAT 
123 DH23: eASCIZ /TEST ERR PC 
105 DH23A: .ASCIZ /RMERI RMMR2 
123 DH4I: eASCIZ /TEST ERR PC 
123 DH42: eASCIZ /TEST ERR PC 
105 DH43A: .ASCIZ /RMERI RMMR2 
103 DH44A: .ASCIZ /RMCS1 RMCS2 
105 DH44B: .ASCIZ /RMER1 RMMRZ 
105 DH4SA: .ASCIZ /RMER1 RMMR2 


RMAS 
ADDRESS 
ADDRESS 


RMER2/ 
RMER2 


RMDS 
DATA/ 
GDDATA 


RMHR 
RMWC 


RMER1 RMMR2 RMER2/ 
BODATA/ 

CYLNDR TRACK SECTOR/ 
BOTRK  BDSCTR/ 

BDADR/ 

RMDS RMER1 RMMR2 RMER2/ 
CYLNDR TRACK/ 

RMCS1 RMCS2 RMDS/ 
RMHR/ 

RMCS1 RMCS2 RMDS/ 
RMDC RMDA/ 

RMBA RMDB/ 


SEQ 0187 


6 15 
CZRMVAO RMOS/3/2 EXT'D DR TST MACRO VO03.01 11-APR-80 15:01:20 PAGE 22 
DATA TABLE (DT) SEQ 0188 

; -SBTTL DATA TABLE (DT) 

3 052170 001132 001204 DTI: » WORD SERRPC ,SREGS 

4 052174 001132 001200 001204 at: ~ WORD SERRPC ,SREG1, SREG3,RMERRS ,RMERRS*+2, RMERRS*+6, RMERRS +4 

5 052212 001212 001132 0463762 DT3: “WORD $TMPO, SERRPC.RD.ADR,RD. WROD 

6 0522 00121 001132 044206 ODTé4: » WORD STMPO,SERRPC ,WRT.ADR,WRT.WD,RD.WRD 

7 0522 00121 001132 001200 oDTS: ~ WORD STMPO ,SERRPC ,SREG1,SREGS,RMERRS ,RMERRS+2,RMERRS+6,RMERRS +4 
B 052254 001470 00113 D110:  .WORD RH.ADR, SERRPC 

9 052260 001 08 00113 DT11: .WORD  $REG2,$ERRPC 

10 835468 00121 00113 001176 DT12: ~ WORD STMPO, SERRPC ,SREGO, CHKDRV,CYL.DS,TRK.DS,SEC.DS 

11 052302 001364 001370 001366 DTIZA: .WORD CYL.0S,TRK.DS,SEC.DS,CYL.RD, TRK.RD,SEC.R 

12 052316 001212 001132 001176 DT13: .WORD  $TMPO,SERRPC,$REGO, CHKDRV,CYL.DS,TRK.DS,SEC.DS 

135 052334 001140 00114 001206 OTI3A: .WORD SGDDAT , SBDDAT , SREG4 , SGDADR ,, SBDADR 

14 052346 001212 00113 001350 OT17: ~ WORD STMPO, SERRPC, CHKDRV.RM.REG,.RM.REG+12,RM.REG*+14,RM.REG*40,RM.REG*42 
15 052366 001212 00113 001176 DT21: ~ WORD STMPO, SERRPC ,SREGO, CHKDRV,CYL.DS,TRK.DS 

16 052402 001200 90114¢ 001206 DT21A: <.WORD  $REG1.$BDDAT.SREGS.SREGI 

17 052412 001212 00113 001350 D123: ~ WORD STMPO,SERRPC, CHKDRV,CYL.DS,RM.REG,RM.REG*+10,RM.REG+12 

18 052430 045572 045616 045620 DIT23A: .WORD RA. REG+14,RM.REG*40,RM.REG+42, RM. REG+34,RM. PF G+ 36 

19 052442 001212 001132 001176 DT41: ~ WORD STMPO, SERRPC,SREGO, CHKDRV 
20 052452 001212 001132 0011 DT42: WORD STMPO, SERRPC, SREGO, CHKDRV, RM. REG, RM.REG+10,RM.REG+12 
21 052470 001212 001132 001176 DT43: ~ WORD STMPO, SERRPC,SREGO, CHKDRV,RM.REG,RM.REG+10,RM.REG+12 
22 052506 045572 045616 045620 DTG3A: WORD RM.REG+14,RM.REG+40,RM.REG+42 
23 052514 001212 001132 001176 DT4é: » WORD STMPO, SERRPC ,SREGO, CHKDRV,CYL.DS,TRK.DS,SEC.DS 

24 052532 045556 045566 045570 DIT446A: WORD RM. REG, RM.REG*10, RM. REG+12,RM.REG+ 36. RM.REG* 34,.RM.REG*06 
25 052546 045572 045616 045620 DT44B: .WORD RM.REG+14,RM.REG*40,RM.REG+42 
26 652554 001212 001132 001176 D145: WORD STMPO,SERRPC,SREGO, CHKDRV,CYL.DS,TRK.DS,SEC.DS 
27 052572 045556 045566 045570 DT45A: .WORD RM.REG,RM.REG*+10,RM. REG+12, RM.REG* 36 .RM_REG* 34,.RM.REG*+06 
$f 052606 045572 045616 045620 D1458: .WORD RM.REG+14,RM.REG*40,RM.REG+42,RM.REG+2,RM.REG+4, RM.REG*+22 


CZRMVAO RMOS/3/2 EXT'D DR TST 


DATA FORMAT (DF) TABLE 


oc? 


052641 


052642 
052644 
052645 


052646 
052650 
052651 


052652 


WAIWARSRUIMRIRUNININNINID Oe ne ae oe 
WN — 9 OONO VF WN OO ONO VF WN -ODOONCUS Wh 


Ww 
* 
o oO 
ww 
~ 
o 
o 
~ 


Ww 
ow 
oo 
ww 
Mrmr 
oo 
on 
ws 


w 
oo 
oo 
ww 
™~m 
o 
~ 
So 


PAWAMAMAE BEE ELE EEE 
NO WE WO OONO US WhO OG~N 


000001 
002 
000 

000001 
007 
000 

000001 
204 
000 

000001 
005 
000 

000001 
002 
000 

000001 
002 
000 

000002 
007 
160 

051146 
006 
000 

000002 
007 
160 

051225 
005 
004 

000000 
005 
004 

000001 
010 
000 

000002 
006 
060 

051446 
004 
014 

000000 
004 
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-SBTTL DATA FORMAT (DF) TABLE 


DF: 


DF2: 


DF3: 


DF4: 


DF10: 


DFI1: 


DF12: 


DF13: 


DF 22: 


. WORD 
.B 


or. ON ON 


on] OW— 


Vio FUMIO RKSewNM OCC RNIN ON 


> 
L=4 
co 


NUMBER OF DATA HEADERS 
;NUMBER OF WORDS IN DATA TABLE 
;ALL 3 NUMBERS ARE OCTAL 


:2 DH'S TO BE TYPED 
:7 DATA WORDS FOLLOW THE 1ST D 


H 
;WORDS 1-4 ARE OCTAL 5-7 ARE DECIMAL 
sADDRESS OF 2ND DH 
36 DATA WORDS FOLLOW THE 2ND DH 
;ALL WORDS ARE OCTAL 


sWORD 3 1S DECIMAL 


sWORD 3 IS DECIMAL 


SEQ 0189 


1 15 
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DATA FORMAT (DF) TABLE SEQ 0170 
os 052715 014 BYTE 14 
60 052716 000002 DF23: WORD 2 
61 05272 007 BYTE 7 
62 052721 010 -BYTE 10 ;WORD 4 IS DECIMAL 
63 052722 051572 -WORD DH23A 
64 052724 005 -BYTE 5 
65 052725 000 -BYTE 0 
6? 
68 052726 000001 DF41: WORD 1 
69 052730 004 BYTE 4 
Y 052731 000 -BYTE 0 
72 052732 000001 DF42: .WORD 1 
73 052734 007 erre ff 
eS 052735 000 -BYTE 0 
76 052736 000002 DF43: .WORD 2 
77 052740 007 BYTE 7 
78 052741 000 BYTE 0 
79 052742 051762 -WORD DH43A 
80 052744 003 -BYTE 3 
+H 052745 000 BYTE 0 
83 052746 000003 DF44: WORD 3 
84 052750 007 BYTE 7 
85 b25ee) 60 BYTE 160 
86 052752 052010 WORD DH44A 
87 052754 006 BYTE 6 
88 052755 000 -BYTE 0 
89 052756 052064 WORD DH44B 
90 052760 003 OIE 3 
4 052761 000 BYTE 0 
93 052762 000003 DF45: .WORD 3 
94 052764 007 Ole - F 
95 052765 160 -BYTE 160 
96 052766 052010 -WORD DH44A 
97 052770 006 BYTE 6 
98 052771 000 -BYTE 0 
99 052772 052112 -WORD DH4SA 
100 052774 006 -BYTE 6 
+H 052775 000 BYTE 0 
103 -SBTTL START OF READ/WRITE BUFFER 
ve 052776 BUFFER: 
106 000200 - END 200 


CZRMVAO RMOS/3/2 EXT'D DR TST 
SYMBOL TABLE 


ABASE = 000000 
ACCESS 046357 
ACDW] = 000000 
ACDW2 = 000000 
ACPUOP= 000000 
ACTDRV 037004 
ACTSTR 037005 
ADDWO = 


> 
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ae be ne be st bs Be he bn bs ne bt Be be Bt ne ns ne be bd ee 

asa a a ag ag ag a ag eg eg ag ts = ts 
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CZ 
SYMBOL SEQ 0192 
EX1TI0 012746 INCTRK 032152 MSGB10 050155 OPNFLG 001334 PRM14 03402 
Ex1T11 ESE 1OTVEC= 44434 MSGB11 050127 OPNPAT 035572 PRMI5 003412 
eng 014134 IR = 000100 $6B12 050105 OPNPRM 035370 PRM1 003422 
EXIT13 014636 1SR 041740 MSGB135 050054 OPNTST 035216 PRM1 003434 
EXIT14 015376 IT 002340 MSGB14 050012 OPNWDS 035714 PRM2 003160 
EXIT15 016136 ITEM41 002242 MSGMAX 046506 OPN.CT 035222 PRM20 38003444 
EXIT16 016560 LA 041564 MSGMIN 046500 OPN.N1 036126 PRM21 003500 
EXIT17 017224 LACNT 037016 MSGNON 046642 OPN.N2 0361352 PRM22 003510 
EXIT2 007652 LC 002330 GNUM 046625 OPN.X1 036144 PRM3 003200 
EX1T20 020004 LDCMD 027066 MSGSEA 046605 OPN.X2 036150 PRMG 003226 
EX1T21 020622 LF = 000012 MSGTST 046253 OPN.1 035226 PRMS 003240 
EXIT22 021016 LKS 001514 MSG.CS 045702 OPN.2 035250 PRM6 003260 
EX1T3 010072 LKV 001510 MSG. 045700 OPT 040146 PRM7 003300 
EXITS 010504 LODEV 046036 MSG.FC 045630 OR = 000200 PRO = 000000 
EXITS 010730 LODFLT 026434 MSG.FS 045666 PACK = 000123 PRI = 000040 
EX1T6 011220 LODPRM 026672 MSG.FT 045641 PAR = 000010 PRe == 000100 
EXIT? 011616 LOP.CK 030466 MSG.1C 045636 PAT 002346 PR3 = 000140 
FC 002326 LPB 001524 MSG.1T 045647 PAT.PT 003520 PR4 = 000200 
FER = 000020 LPS 001522 MSG.LC 045633 PATO 03560 PRS = 000240 
FILBUF 032256 LPTAVL 001324 MSG.LS 045671 PATI 003620 PR6 = 000300 
FILRAN 033340 LP.AVL 026114 MSG.LT 045644 PATIO 004260 PR7 == 000340 
FMT16 = 010000 LS 002344 MSG.PA 045674 PAT11 004320 PS = 177776 
FS 002342 LSIT = 000002 MSG.R 45626 PATI2 004360 PSEL = 002000 
FT 002334 LST = 002000 MSGOUS 046522 PATI3, 004420 Ww = 177776 
FWD 046450 LSTRK 001372 MSG10X 047012 PAT14 004460 PTRNIS 003476 
Fl = 00000 T 002336 MSG11X 047054 PATI5 004520 PWRVEC= 000024 
F2 = 0000 MABOVE 046556 MSG12X 047110 PAT2 003660 QCN1 044500 
F3 = 000010 MBELOW 046527 MSG7XA 046662 PATS 003720 QDRVO 044572 
F4 = 000020 MCLK = 004000 MSG7XB 046737 PATS 003760 QDRV1 044612 
F5 = 000040 MCPE = 020000 MUR = 001000 PATS 004020 QDRV2 044632 
GETADR 045260 MCPEMX 037064 MWP == 000010 PAT6 004060 QDRV3 044652 
| GETNUM = 034070 MDF = 000100 MXDiLTA 037076 PAT? 004120 QDRV4 044672 
GETREG= 000141 MES.FT 045652 = 001000 PATS 4160 QDRVS 044712 
GETREQ 045144 MES.1T 045662 MXLACT 037074 PAT9 004220 QDRV6 044732 
GETSWR 033776 MES.LT 045656 MXSEEK 046424 PDA = 000400 QDRV7 = 044752 
= 000001 = 000004 MXSTAL 001460 PGE = 002000 QINPT 044510 
GTSWR = 104406 MNDLTA 037100 MXWNDW 037102 PGM = 001000 QOUTPT 044530 
GTTST1 034364 = 000400 A = 100000 PHA = 000200 QSTART 044550 
GTTST2 03445 MOH = 020000 NC] 002356 PIP = 020000 QSTOP 044552 
GTTSTS 035012 MOL = 010000 NC2 002360 PIRQ = 177772 QTERM = 044772 
GTTST4 035014 MPE = 000400 NED = 010000 PIRQVE= 000240 RANADR 033614 
GTTSTS 035124 MRD = 002000 NEM = 004000 PKB 001504 RANCK 033362 
GTTST6 0351 MRMCS1 045436 NOCLOK 046135 PKC 001506 RANPAT 033560 
GT.PRM 034226 MRMVEC 04544 NONE 046125 PKCS 001502 RDCHR = 104410 
GT.PR1 034230 s = 000040 NOOP = 000101 PKV 001476 RDLIN = 104411 
GT.PR2 034360 MSC = 000002 NOTPRS 045770 PLFS = 002000 RDY = 00020 
HCE = 000200 MSEN = 010000 OTRM 046015 POPQUE 045166 RD.ADR 043762 
HCI = = 002000 MSER = 000200 NOTSAF 046005 002322 RD.RM 043736 
HCRC = 00 MSGAVG 046514 OBCK = 100000 PRALMT 002432 RD.RM1 043760 
| HT = 000011 MSGBO1 050555 OBEN = 040000 PRMMSG 002464 RD.RM2 044104 
1AE = 002000 MSGBO2 050505 occ §== 100000 PRMPT 002362 RD.RMS 044110 
Ic 002332 MSGBO3 050435 OFD = 000200 PRMO 003116 RD.RM4 044114 
IE = 000100 MSGB04 050415 OFFSET= 000115 PRM] 003132 RD.WRD 043764 
ILf == 000001 MSGBO5 050345 = 000001 PRM10) §=003320 READ = 000171 
ILR = 000002 GB06 050301 ONECYL 046312 PRM11 003336 READHD= 000173 
_INCCYL 032202 MSGBO8 050237 OPE = 020000 PRM12 003356 READIN= 000121 
/ INCSK 007566 MSGB09 050200 OP! = 020000 PRM13 §=©003372 RECAL = 000107 
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WRT.R1 15-;75@ 15-;95 

WRT.R2 15-3618 15-3948 

WRT.R3 15-;70 15-;81 15-;84 15-;90 15-;96# 

WRT.RG 15-386 15-;988 

WRT.RS 15-:97 15-;998 

WRT .RM 15-815 15-319 15-497 15-501 15-505 15-513 15-523 15-527 15-538 15-545 15-555 15-569 15-579 15-600 

15-615 15-628 15-864 15-894 15-933 15-;618# 

WRT.WD 15-;62« 15-;66 15°;73* 15-;764 22-6 

WRTHD 4-295@ 

XXDP 6-04 10-34* 10-37* 10-38 10-40* 10-45 10-56 10-108 10-110 10-153 10-155 
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